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ABSTRACT 


Traditionally,  the  design  and  implementation  of  a  conventional  database 
system  begins  with  the  choice  of  a  data  model  followed  by  the  specification  of  a 
model-based  data  language.  Thus,  the  database  system  is  restricted  to  a  single 
data  model  and  a  specific  data  language.  An  alternative  to  this  traditional 
approach  to  database-system  development  is  the  multi-lingual  database  system 
(MLDS).  This  alternative  approach  enables  the  user  to  access  and  manage  a  large 
collection  of  databases  via  several  data  models  and  their  corresponding  data 
languages  without  the  aforementioned  restriction. 

In  this  thesis  we  present  the  implementation  of  a  functional/Daplex  language 
interface  for  MLDS.  Specifically,  we  present  the  implementation  of  an  interface 
which  translates  Daplex  language  calls  into  attribute-based  data  language 
(ABDL)  requests  which,  as  the  kernel  language,  support  all  other  data  language 


interfaces. 
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I.  AN  INTRODUCTION 


A.  THE  MOTIVATION 

The  concept  of  a  database  system  has  been  widely  accepted  by  major  users  of 
computers  ever  since  it  was  introduced.  Many  database  systems  have  been 
developed  and  utilized  by  a  large  community  of  users.  These  database  systems 
have  been  designed  and  implemented  in  a  rather  conventional  manner  -  a  specific 
data  model  for  the  database  system  is  always  selected  first,  then  a  corresponding 
model-based  data  language  is  specified.  Some  examples  of  these  database  systems 
are: 

•  IBM’s  Information  Management  System  (IMS)  which  supports  the 
hierarchical  database  model  and  IBM’s  Data  Language  I  (DL/I) 

•  IBM’s  SQL/Data  System  which  supports  the  relational  model  and  IBM’s 
Structured  English  Query'  Language  (SQL) 

•  Univac’s  CODASYL-DML/Data  System  which  supports  the  network  model 
and  Univac’s  CODASYL  Data  Manipulation  Language  (CODASYL-DML) 

•  CCA’s  Daplex/Data  System  which  supports  the  functional  model  and  CCA’s 
Daplex  Language 

The  result  of  this  conventional  approach  to  the  design  of  a  database  system 
is  a  mono-lingual  database  system  where  the  user  sees  and  utilizes  the  database 
system  with  a  specific  data  model  and  its  model-based  data  language.  One 
research  effort  to  overcome  this  limitation  was  to  introduce  a  new  and 
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unconventional  approach  to  the  design  and  implementation  of  a  database  system, 
the  multi-lingual  database  system  (MLDS)  [Ref.  l]. 

B.  THE  MULTI-LINGUAL  DATABASE  SYSTEM 

The  multi-lingual  database  system  is  a  single  database  system  that  can 
execute  many  transactions  written  in  different  data  languages  and  support  many 
databases  structured  on  different  data  models.  The  design  goals  of  MLDS  involve 
developing  a  system  that  is  accessible  via  four  different  interfaces,  the 
hierarchical/DL/I  [Refs.  2.  3],  network/DML  [Ref.  4j,  relational/ SQL  [Ref.  5].  and 
functional/Daplex  [Ref.  6]  models.  MLDS  transforms  traditional  database  models 
into  a  single  database  model  called  the  attribute-based  model  [Ref.  7].  The 
system  structure  of  MLDS  is  shown  in  Figure  1.1. 

The  user  data  model  (UDM)  and  the  user  data  language  (UDL)  refer  to  the 
database  model  and  language  chosen  by  the  user.  The  kernel  data  model  (KDM) 
and  the  kernel  data  language  (KDL)  refer  to  the  attribute-based  model  and 

attribute-based  data  language  (ABDL).  Users  issue  transactions  through  the 

language  interface  layer  (LIL)  using  a  chosen  user  data  model  (UDM)  and  written 
in  a  corresponding  model-based  data  language  (UDL).  LIL  then  routes  the  user 
transactions  to  the  kernel  mapping  system  (KMS).  If  the  user  specifies  that  a  new 
database  is  to  be  created,  KMS  transforms  the  database  definition  to  a  KDM- 
based  database  definition  and  forwards  to  the  kernel  controller  (KC).  KC,  in 

turn,  sends  the  KDM  database  definition  to  the  kernel  database  system  (KDS). 
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UDM  :  User  Data  Model 

UDL  :  User  Data  Language' 

LIL  :  Language  Interface  Layer 

KMS  :  Kernel  Mapping  System 

KC  :  Kernel  Controller 

KFS  :  Kernel  Formatting  System 

KDM  :  Kernel  Data  Model 

KDL  :  Kernel  Data  Language 

KDS  :  Kernel  Database  System 


Figure  1.1.  The  Multi-lingual  Database  System  (MLDS). 


After  KDS  has  completed  its  tasks  of  creating  the  database,  it  informs  KC.  KC 
then  notifies  the  user  via  LIL.  If  the  user  specifies  transactions  using  UDL 
through  LIL,  KMS  translates  the  UDL  transactions  to  the  KDL  transactions  and 
sends  them  to  KC.  KC  then  forwards  the  KDL  transactions  to  KDS  for 
execution.  Upon  completion,  KDS  sends  the  results  in  the  KDM  form  back  to  KC. 
KC  then  routes  the  results  to  the  kernel  formatting  system  (KFS)  which  formats 
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the  results  to  the  UDM  form.  The  results  in  the  correct  UDM  form  are  then  be 


displayed  via  LIL. 

The  four  software  modules.  LIL,  KMS,  KC,  and  KFS,  are  collectively  known 
as  the  language  interface.  Four  similar  sets  of  these  modules  are  required  for  the 
four  different  data  model/language  interfaces  supported  by  MLDS.  The 
hierarchical/DL/I  language  interface  [Ref.  8],  relational/SQL  language  interface 
[Ref.  9],  and  network/ DML  language  interface  [Ref.  10]  have  been  implemented. 
The  functional/Daplex  language  interface  [Ref.  ll]  has  been  partially 
implemented.  This  thesis  is  a  continuation  on  the  task  of  implementing  the 
functional/Daplex  language  interface. 

C.  THE  KERNEL  DATA  MODEL  AND  LANGUAGE 

The  choice  of  a  kernel  data  model  and  a  kernel  data  language  is  the  key 
decision  in  the  development  of  a  multi-lingual  database  system.  The  overriding 
question,  when  making  such  a  choice,  is  whether  the  kernel  data  model  and  kernel 
data  language  is  capable  of  supporting  the  required  data-model  transformations 
and  data-language  translations  for  the  language  interfaces. 

The  attribute-based  data  model  proposed  by  Hsiao  [Ref.  12],  extended  by 
Wong  [Ref.  13],  and  studied  by  Rothnie  [Ref.  14],  along  with  the  attribute-based 
data  language  (ABDL),  defined  by  Banerjee  [Ref.  15],  have  been  shown  to  be 
acceptable  candidates  for  the  kernel  data  model  and  kernel  data  language, 
respectively. 
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The  determination  of  a  kernel  data  model  and  kernel  data  language  is 
important  for  MLDS  because  no  matter  how  multi-lingual  MLDS  may  be,  if  the 
underlying  database  system  (i.e..  KDS)  is  slow  and  inefficient,  then  the  interfaces 
may  be  rendered  useless  and  untimely.  Hence,  it  is  important  that  the  kernel 
data  model  and  kernel  language  be  supported  by  a  high-performance  and  great- 
capacity  database  system.  Currently,  only  the  attribute-based  data  model  and 
the  attribute-based  data  language  are  supported  by  such  a  system.  This  system  is 
the  multi-backend  database  system  (MBDS)  [Ref.  16]. 

D.  THE  MULTI-BACKEND  DATABASE  SYSTEM 

The  multi-backend  database  system  (MBDS)  has  been  designed  to  overcome 
the  performance  problems  and  upgrade  issues  related  to  the  traditional  approach 
of  database  system  design.  This  goal  is  realized  through  the  utilization  of 
multiple  backends  connected  in  a  parallel  fashion.  These  backends  have  identical 
hardware,  replicated  software,  and  their  own  disk  systems.  In  a  multiple 
backend-configuration,  there  is  a  backend  controller,  which  is  responsible  for 
supervising  the  execution  of  database  transactions  and  for  interfacing  with  the 
hosts  and  users.  The  backends  perform  the  database  operations  with  the  database 
stored  on  the  disk  system  of  the  backends.  The  controller  and  backends  are 
connected  by  a  communication  bus.  Users  access  the  system  through  either  the 
hosts  or  the  controller  directly  (see  Figure  1.2). 
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Backend  Store  1 


II 
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II 
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II 
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II 
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Figure  1.2.  The  Multi-Backend  Database  System. 


Performance  gains  are  realized  by  increasing  the  number  of  backends.  If  the 
size  of  the  database  and  the  size  of  the  responses  to  the  transactions  remain 
constant,  then  MBDS  produces  a  reciprocal  decrease  in  the  response  times  for  the 
user  transactions  when  the  number  of  backends  is  increased.  On  the  other  hand, 
if  the  number  of  backends  is  increased  proportionally  with  the  increase  in 
databases  and  responses,  then  MBDS  produces  invariant  response  times  for  the 
same  transactions.  A  more  detailed  discussion  of  MBDS  is  found  in  [Ref.  16]. 
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E.  THE  ORGANIZATION  OF  THE  THESIS 


The  remainder  of  this  thesis  is  organized  into  five  chapters  and  five 
appendices.  In  Chapter  II,  we  present  the  background  materials.  This  includes 
an  overview  of  the  source  data  language,  Daplex  and  the  target  data  language, 
ABDL.  In  Chapter  III,  we  describe  the  implementation  strategy,  the  program 
modules  and  the  data  structures  used  in  the  functional/Daplex  language  interface. 
In  Chapter  IV,  we  present  additions  and  modifications  to  the  language  interface 
layer  from  the  first  implementation  [Ref.  1 1] .  In  Chapter  V.  we  describe  the 
mapping  process  of  the  kernel  mapping  system.  Finally,  in  Chapter  VI,  we 
conclude  the  thesis.  Of  the  appendices,  Appendix  A  contains  the  data  structures 
used  for  the  interface;  Appendix  B  and  C  contain  the  program  listings  for  the  LIL 
and  KMS  modules;  And,  Appendix  D  lists  the  grammar  rules  used  in  our 
implementation  of  the  Daplex  interface. 
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II.  THE  BACKGROUND  MATERIALS 


A.  THE  SOURCE  DATA  LANGUAGE  -  DAPLEX 

Daplex  is  a  database  language  that  was  created  by  David  W.  Shipman  [Ref. 
17]  in  1979  while  working  at  the  Computer  Corporation  of  America  (CCA)  and 
the  Massachusetts  Institute  of  Technology  (MIT)  (Ref.  18].  Its  foundation  is  in 
what  Shipman  and  Gray  [Ref.  18]  call  the  functional  data  model.  One  of 
Shipman's  goals  for  Daplex  is  to  provide  a  conceptually  natural  database  interface 
language.  That  is.  the  Daplex  constructs  used  to  model  real-world  situations  are 
intended  to  closely  match  the  conceptual  constructs  a  human  being  might  employ 
when  thinking  about  those  situations.  Such  conceptual  naturalness,  to  the  extent 
it  has  been  achieved,  presumably  simplifies  the  process  of  writing  and 
understanding  Daplex  requests,  since  the  translation  between  the  user's  mental 
representation  and  its  formal  expression  in  Daplex  is  more  direct. 

Gray  notes  that  Shipman  developed  his  concepts  from  the  semantic  net  data 
abstraction  used  in  artificial  intelligence.  The  semantic  net  is  a  structure  that 
represents  associations  between  objects.  For  each  object  of  a  given  type,  there  is  a 
corresponding  collection  of  functions  which  are  applicable  to  it;  some  of  these 
provide  simple  values,  but  the  results  of  others  are  found  by  following  arcs  in  the 
net,  which  connect  the  object  to  other  objects  of  various  types.  Functions  can  be 
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applied  in  turn  to  these  objects,  thus  determining  a  network  of  associations. 
Consequently,  Shipman’s  Daplex  relies  on  functions  and  functional  composition  to 
derive  actual  values. 

A  sample  database,  univ,  is  used  for  examples  throughout  this  thesis.  The 
database  schema  is  presented  in  Figure  2.1  and  a  graphical  representation  of  the 
database  is  presented  in  Figure  2.2.  This  database  follows  closely  the  sample 
database,  university,  in  the  Daplex  User's  Manual  [Ref.  19]  except  that  some 
identifier  names  have  been  abbreviated.  The  abbreviation  is  necessary  as  the 
attribute-based  data  language  requires  the  identifier  name  to  be  of  eight  or  less 
characters  in  length  and  the  use  of  underscore  in  an  identifier  name  is  not 
permitted. 

The  Daplex  database  language  consists  of  two  parts,  the  data  definition 
language  (DDL)  and  the  data  manipulation  language  (DML)  .  DDL  defines  the 
logical  types  and  structures  of  information  in  databases  and  the  constraints  that 
specify  which  values  are  legal.  DML  allows  a  database  user  to  create,  delete, 
modify,  and  retrieve  information  in  the  databases. 

1.  The  Data  Definition  Language 

Daplex  database  definitions  are  syntactically  similar  to  programming 
language  declarations.  The  basic  construct  of  DDL  is  the  database  declaration.  A 
data  declaration  consists  of  data  declarations  and  constraints.  The  data 
declarations  define  the  types  and  structures  of  the  database.  The  constraints 
define  the  set  of  legal  values  of  the  database.  The  basic  format  of  a  database 
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DATABASE  univ  IS 


TYPE  person; 

SUBTYPE  employee; 

SUBTYPE  supstaff; 

SUBTYPE  faculty; 

SUBTYPE  student; 

SUBTYPE  graduate; 

SUBTYPE  undrgrad: 

TYPE  course: 

TYPE  dept: 

TYPE  enroll: 

TYPE  rankname  IS  (assistant, associate. full); 

TYPE  semester  IS  (fall,  spring,  summer); 

TYPE  ptgrade  IS  RANGE  0.0  ..  4.0; 

TYPE  person  IS 
ENTITY 

name  :  STRING  (1  ..  25); 
ssn  :  STRING  (1  ..  9)  :=  "000000000"; 

END  ENTITY; 

SUBTYPE  employee  IS  person 
ENTITY 

homeaddr:  STRING  (1  ..  50); 

office  :  STRING  (1  ..  8); 

phones  :  SET  OF  STRING  (1  ..  7); 

salary  :  FLOAT; 

depdents  :  INTEGER  RANGE  0  ..  10  ; 

END  ENTITY; 

SUBTYPE  supstaff  IS  employee 
ENTITY 

supvisor  :  employee  WITHNULL; 
fulltime  :  BOOLEAN; 

END  ENTITY; 

SUBTYPE  faculty  IS  employee 
ENTITY 

rank  ;  rankname; 

teaching  :  SET  OF  course; 

tenure  :  BOOLEAN  :=  FALSE; 

fdept  :  dept; 

END  ENTITY; 

Figure  2.1.  The  Sample  Database,  univ.  (continued) 
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SUBTYPE  student  IS  person 
ENTITY 

advisor  :  faculty  WITHNULL; 

major  :  dept; 

enrolls  :  SET  OF  enroll; 

END  ENTITY; 

SUBTYPE  graduate  IS  student 
ENTITY 

advcomm  :  SET  OF  faculty: 

END  ENTITY; 

SUBTYPE  undrgrad  IS  student 
ENTITY 

gpa  ;  ptgrade  :=  0.0: 

vear  :  INTEGER  RANGE  1  ..  4  :=  1; 
END  ENTITY; 

TYPE  course  IS 
ENTITY 

title  :  STRING  (1  ..  10); 

fdept  :  dept; 

fsemster  :  semester; 

credits  :  INTEGER; 

END  ENTITY; 

TYPE  dept  IS 
ENTITY 

name  :  STRING  (1  ..  20); 

head  :  faculty  WITHNULL; 

END  ENTITY; 

TYPE  enroll  IS 
ENTITY 

class  :  course; 

grade  :  ptgrade; 

END  ENTITY; 

UNIQUE  ssn  WITHIN  person; 

UNIQUE  name  WITHIN  dept; 

UNIQUE  title,  fsemster  WITHIN  course; 
OVERLAP  graduate  WITH  faculty; 

END  univ; 

Figure  2.1.  The  Sample  Database,  univ. 
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Figure  2.2.  A  Graphical  Representation  of  the  "univ"  Database  Schema. 
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declaration  is  given  in  Figure  2.3.  Figure  2.1  is  a  complete  example  of  a  database 
declaration.  In  this  figure,  the  square  brackets  denote  that  the  content  enclosed 
between  them  is  optional.  This  syntactic  convention  is  used  throughout  this 
thesis. 


DATABASE  db-name  IS 

[  non-entity-type-declarations  j 
entity-type-declarations 
[  entity-type-constraints  ] 

END  [  db-name  ]; 

Figure  2.3.  The  Database-Declaration  Format. 


The  db-name  refers  to  the  unique  name  of  the  database  being  declared. 
The  non-entity-type  declarations  are  declarations  of  string  types,  scalar  types,  and 
numeric  constants.  The  entity-type-declarations  are  declarations  of  entity  types 
and  subtypes,  their  functions  and  generalization  hierarchies.  The  entity-type- 
constraints  define  those  properties  of  the  declared  entity  types  and  subtypes  that 
must  remain  invariant  under  any  operations  on  values  of  those  types.  The  data 
declarations  and  constraints  can  be  intermixed  in  any  order.  However,  all  types 
must  be  completely  or  partially  declared  before  the  name  of  the  type  can  appear 
in  another  declaration. 

An  entity-type  declaration  declares  a  new  entity  type.  The  two  formats 
of  entity-type  declarations  are  shown  in  Figure  2.4.  The  first  format  is  for  a 
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complete  entity-type  declaration.  The  entity-type-name  is  an  identifier  that  is  the 
name  of  the  entity  being  declared.  The  name  must  be  unique  among  all  type  and 
subtype  names  within  the  database.  The  function-names  are  lists  of  one  or  more 
identifiers,  separated  by  commas,  that  are  the  names  of  the  functions  that  can  be 
applied  to  the  entity  type  being  declared.  If  there  is  more  than  one  identifier  in 
the  list,  all  function  names  on  the  list  share  the  same  function-type.  The 
function-type  may  be  strings,  scalars  (integer,  floating-point,  or  enumeration 
type),  entities,  nonentities  or  sets  of  any  of  the  above  types.  The  second  format  is 
for  a  partial  entity-type  declaration.  A  partial  entity-type  declaration  introduces 
only  the  type  name  to  make  it  available  as  a  function  type  for  another  entity  type 
declaration.  A  function  type  must  be  declared,  completely  or  partially,  before  it 


(1)  TYPE  entity-type-name  IS 
ENTITY 

[  function-names- 1  :  function-type; 
function-names-2  :  function-type; 


function-names-n  :  function-type;  ] 
END  ENTITY; 


(2)  TYPE  entity- type-name; 

Figure  2.4.  The  Entity-Type-Declaration  Formats. 
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can  be  referenced.  The  reference  of  entity  types  in  this  manner  provides  the 
operational  link  in  implementing  the  user-defined  relationships  of  the  functional 
model  in  Daplex.  Whenever  a  partial  declaration  appears  in  an  entity-type 
declaration,  the  complete  declaration  of  that  entity  type  must  appear  later  in  the 
same  database  declaration. 

The  relations  among  the  objects  in  Daplex  are  reflected  in  the 
generalization  hierarchies.  All  types  in  the  generalization  hierarchy  are  entity 
types  or  entity  subtypes.  An  example  of  the  Person  generalization  hierarchy  is 
presented  in  Figure  2.5.  The  example  shows  that  the  entity  type,  Person,  forms 


Figure  2.5.  An  Example  of  Generalization  Hierarchy. 
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the  root  of  a  tree  of  built-in  relationships.  The  nodes  of  the  tree  are  entity 
subtypes.  The  names  of  subtypes  must  be  unique.  Subtypes  are  descendants  of 
the  root  type  or  other  subtypes.  As  the  hierarchy  is  traversed  downward  from 
level  to  level,  each  subtype  inherits  all  of  the  functions  of  its  supertypes. 
Supertypes  are  ancestors  of  subtypes.  The  highest  level  ancestor  (Person)  is  the 
root  type.  The  formats  for  generalization-hierarchy  declarations  are  depicted  in 
Figure  2.6. 


(l)  SUBTYPE  subtype-name  IS  supertype-names 
ENTITY 

[  function-names- 1  :  function-type: 
function-names-2  :  function-type; 


function-names-n  :  function-type;  ] 

END  ENTITY; 

(2)  SUBTYPE  subtype-name: 

Figure  2.6.  The  Generalization-Hierarchy-Declaration  Formats. 


The  subtype-name  is  an  unique  identifier  of  the  subtype  being  declared. 
The  supertype-names  is  a  list  of  one  or  more  names  of  entity  types  and  subtypes 
of  built-in  relationships  completely  declared  previously  in  an  entity-type 
declaration  or  generalization-hierarchy  declaration.  The  function-names  and  the 
function-types  are  the  same  as  for  an  entity-type  declaration.  The  two  formats 
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also  correspond  directly  to  the  entity  type  declaration  formats.  One  important 
point  to  remember  is  that  the  complete  declaration  of  all  subtypes  creates  a 
built-in  relationship. 

Nonentity-type  declarations  describe  the  primitive  objects  that  declare 
data  types  other  than  entities.  There  are  three  nonentity  types:  the  base  type, 
the  subtype  and  the  derived  type.  Their  formats  are  shown  in  Figure  2.7. 


base  type  :  TYPE  type-name  IS  type-definition: 

subtype  :  SUBTYPE  subtype-name  IS  prev-name 

[  scalar- type-constraints  : 

derived  type  :  TYPE  type-name  IS  NEW  prev-name 

[  scalar-type-constraints  ]: 

Figure  2.7.  The  Nonentity-Type-Declarations  Format. 


The  type-definition  declares  the  data  types  of  the  nonentities.  They  may 
be  user-defined  or  predefined.  The  predefined  types  are  STRING,  INTEGER, 
FLOAT,  and  BOOLEAN.  User-defined  types  are  strings,  scalars  (integer, 
floating-point,  enumeration,  and  boolean),  and  numeric  constants.  The  prev- 
name  refers  to  name  of  previously  declared  type  or  subtype.  The  scalar-type- 
constraint  may  be  used  to  restrict  the  value  of  the  nonentity  type  being  declared. 
An  example  of  a  scalar-type-constraint  is  the  restriction  of  “ptgrade”  within  the 
range  from  “0.0”  to  “0.4” 
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There  are  two  types  of  constraints  on  entity  types  in  Daplex:  the  overlap 
constraint  and  uniqueness  constraint.  An  overlap  constraint  determines  when  an 
entity  may  legally  belong  to  two  or  more  terminal  entity  subtypes.  A  terminal 
entity  subtype  is  a  leaf  in  the  generalization  hierarchy.  Terminal  types  are 
disjoint  unless  they  are  connected  with  the  overlap  constraint.  The  format  of 
overlap-constraint  declaration  is  shown  in  Figure  2.8.  The  entity-type-names  is  a 
list  of  one  or  more  identifiers  (separated  by  commas)  of  previously  declared  entity 
subtypes.  An  overlap  constraint  specifies  that  any  database  entity  belonging  to  a 
subtype  identified  in  the  first  list  also  may  belong  to  each  of  the  subtypes 
identified  in  the  second  list. 


OVERLAP  entity-type-names  WITH  entity-type-names: 
Figure  2.8.  The  Overlap-Constraint  Format. 


The  uniqueness  constraint  specifies,  for  a  particular  entity  type  or 
subtype,  a  collection  of  functions  whose  values  are  unique  for  all  entities  in  a 
database  belonging  to  that  type  or  subtype.  The  format  for  uniqueness-constraint 
is  given  in  Figure  2.9.  The  entity-type-name  is  the  name  of  a  previously  declared 
entity  type  or  subtype.  A  restriction  for  values  of  functions  is  that  uniqueness 
constraints  only  apply  to  values  directly.  Functions  that  derive  their  values  from 
relationships  with  entities  or  nonentities  are  precluded  from  forming  uniqueness 
constraints. 
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UNIQUE  function-names  WITHIN  entity-type-name: 

Figure  2.9.  The  Uniqueness-Constraint  Format. 

The  Daplex  DDL  is  to  be  discussed  again  in  Chapter  V.  where  the 
transformations  between  the  Daplex  and  the  ABDL  structures  are  presented. 

2.  The  Data  Manipulation  Language 

The  Daplex  data  manipulation  language  (DML)  allows  users  to  retrieve 
and  update  entities  and  function  values  in  the  database.  The  FOR  EACH 
statement  is  the  basis  for  Daplex  data  retrieval.  It  is  used  to  specify  the  set  of 
entities  or  values  that  are  to  be  accessed  and  to  loop  over  that  set.  The  format  of 
the  FOR  EACH  statement  is  shown  in  Figure  2.10.  The  loop-label  is  an  optional 


[  loop-label:  ]  FOR  f  EACH  ]  loop-parameter 
IN  set-expression 
[  WHERE  boolean-expression  ] 

BY  order-clauses  ] 

[ LOOP ] 
loop-body 
END  [  LOOP  ]; 

Figure  2.10.  The  FOR  EACH  Statement  Format. 
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label  for  the  statement.  The  loop-parameter  is  an  identifier.  On  each  iteration  of 
the  loop,  loop-parameter  is  assigned  a  member  of  the  set  of  database  values.  The 
set-expression  specifies  a  set  of  unique  string,  scalar,  or  entity  values.  The 
boolean-expression  is  any  expression  that  yields  a  boolean  value.  It  restricts  the 
members  of  set-expression  over  which  the  loop  iterates.  Order-clause  is  a  list  of 
one  or  more  clauses  that  define  the  order  of  iteration  through  the  set.  The  loop- 
body  may  include  a  sequence  of  one  or  more  DML  statements  that  are  executed 
once  for  each  iteration  of  the  loop. 

For  printing  and  formatting  the  display  of  query  results,  the 
PROCEDURE-CALL  statement  is  used.  There  are  several  formats  available  in 
the  original  Daplex  data  language.  In  our  implementation,  only  the  PRINT  and 
PRINT  LINE  statement  formats,  shown  in  Figure  2.11.  are  implemented.  These 
statements  print  the  values  of  each  of  the  expressions  using  default  formats  of  the 
expressions.  The  difference  between  the  two  statements  is  that  PRINT  LINE 
outputs  a  carriage  return  after  all  of  the  expression  values  are  printed. 


(1)  PRINT  (  expressions  ); 

(2)  PRINT_LINE  (  expressions  ); 

Figure  2.11.  The  PRINT  and  PRINT  LINE  Statement  Formats. 
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For  database  updates,  there  are  the  ASSIGNMENT.  CREATE. 


INCLUDE.  EXCLUDE,  DESTROY  and  MOVE  statements.  The  formats  of  these 
statements  are  listed  in  Figure  2.12.  The  ASSIGNMENT  statement  is  used  to 


(1)  ASSIGNMENT  statement: 

single-valued-function-expression  :=  expression: 

(2)  CREATE  statement: 

CREATE  NEW  entity-type-names 
[  (function-name-1  =>  expression-1, 
function-name-2  =>  expression-2, 


function-name-m  =>  expression-m)  ]; 

(3)  INCLUDE  statement: 

INCLUDE  expression  INTO  set-valued-function-expression; 

(4)  EXCLUDE  statement: 

EXCLUDE  expression  FROM  set-valued-function-expression; 

(5)  DESTROY  statement: 

DESTROY  (entity- valued-expression) ; 

(6)  MOVE  statement: 

MOVE  entity-valued-expression 
[  FROM  entity-type-names  ] 

[  INTO  entity-type-names 

[  (function-name-1  =>  expression-1, 
function-name-2  =>  expression-2, 


function-name-m  =>  expression-m)  ]  ]; 

Figure  2.12.  The  Database-Update-Statement  Formats. 
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assign  or  modify  a  value  to  a  single-valued  function.  The  CREATE  statement  is 
used  to  create  a  new  database  entity.  The  INCLUDE  statement  adds  either  a 
single  value  or  a  set  of  values  to  a  set-valued  function.  The  EXCLUDE  statement 
is  used  to  remove  a  single  value  or  a  set  of  values  from  a  set-valued  function.  The 
DESTROY  statement  removes  an  entity  from  the  database.  The  .MOVE 
statement  changes  the  subtypes  to  which  an  entity  belongs.  The  effect  is  the 
removal  of  the  entity  from  each  subtype  in  the  FROM  list  and  the  addition  of  the 
entity  to  each  subtype  in  the  INTO  list. 

B.  THE  TARGET  DATA  LANGUAGE  -  ABDL 
1.  The  Attribute-based  Data  Model 

The  data  structures  of  the  attribute-based  data  model  include:  database, 
file,  record,  attribute-value  pair,  keyword,  attribute-value  range,  directory 
keyword,  non-directory  keyword,  directory,  record  body,  predicates,  and  query. 
Informally,  a  database  consists  of  a  collection  of  files.  Each  file  contains  a  group 
of  records  characterized  by  a  unique  set  of  directory  keywords.  An  example  of  a 
record  for  a  “Person”  file  is  shown  in  Figure  2.13.  A  record  is  composed  of  two 


(<FILE,  Person>,  <NAME,  Charlie  Brown>.  <SSN,  123456789>, 
{  Cartoon  character  }) 

Figure  2.13.  An  Example  of  a  Record. 
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parts.  The  first  part  of  a  record  is  a  collection  of  attribute-value  pairs  or 
keywords.  The  attribute  of  an  attribute- value  pair  defines  the  specific  quality  or 
the  certain  characteristics  of  the  value.  In  our  example,  the  attribute-value  pair, 
<NAME,  Charlie  Brown>,  has  an  attribute  “NAME”  and  the  value  of  the 
attribute  is  "Charlie  Brown’’  Each  record  can  only  have  one  value  associated  with 
a  corresponding  attribute  in  the  attribute- value  pair.  Further,  no  two  attribute- 
value  pairs  have  the  same  attribute  in  a  record,  i.e..  all  attributes  must  be  unique 
in  a  record.  Certain  attribute-value  pairs  of  a  record  are  called  directory  keywords 
since  their  attribute  values  or  attribute-value  ranges  are  kept  in  a  director}'  for 
identifying  the  records  (files).  <FILE.  Person>  in  Figure  2.13  is  an  example  of  a 
director}'  keyword.  Those  attribute-value  pairs  that  are  not  kept  in  the  directory 
are  called  non-directory  keywords.  The  second  part  of  the  record  is  the  record 
body  which  contains  only  textual  information.  The  record  body  in  our  record  is 
the  “Cartoon  character"  enclosed  within  a  pair  of  curly  brackets. 

The  records  of  a  database  may  be  identified  by  keyword  predicates.  A 
keyword  predicate  is  a  3-tuple  consisting  of  a  director}'  attribute,  a  relational 
operator,  and  an  attribute  value,  e.g..  (NAME  =  Charlie  Brown).  A  query 
combines  keyword  predicates  in  disjunctive  normal  form.  An  example  of  a  query 
is  given  in  Figure  2.14.  The  query  will  be  satisfied  by  all  records  of  the  Person  file 
where  the  value  of  the  attribute  NAME  is  “Charlie  Brown”  or  “Beetle  Bailey" 
use  parenthesis  for  bracketing  conjunctions  in  a  query. 
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((FILE  =  Person)  and  (NAME  =  Charlie  Brown))  or 
((FILE  =  Person)  and  (NAME  =  Beetle  Bailey)) 

Figure  2.14.  An  example  of  a  Query. 


2.  The  Attribute-based  Data  Language 

The  attribute-based  data  language  (ABDL)  supports  five  primary 
database  operations:  INSERT.  DELETE.  UPDATE.  RETRIEVE,  and 
RETRIEVE-COMMON.  A  request  in  ABDL  is  a  primary  operation  with  a 
qualification.  A  qualification  specifies  the  part  of  the  database  that  is  to  be 
operated  on.  Two  or  more  requests  may  be  grouped  together  to  form  a 
transaction. 

The  INSERT  request  inserts  a  new  record  into  the  database.  The 
qualification  of  an  INSERT  request  is  a  list  of  keywords  with  or  without  a  record 
body.  An  example  of  a  INSERT  request  is  shown  in  Figure  2.15.  This  request 
inserts  a  new  record  to  the  Person  file  where  the  value  of  the  attribute  NAME  is 


INSERT  (<FILE.  Person>,  <NAME,  Charlie  Brown> 
<SSN,  123456789>,  <AGE,  35>) 

Figure  2.15.  An  Example  of  INSERT  Request. 
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Charlie  Brown,  the  value  of  the  attribute  SSN  is  123456789,  and  the  value  of  the 
attribute  AGE  is  35. 

A  DELETE  request  removes  one  or  more  records  from  a  database.  The 
qualification  of  a  DELETE  request  is  a  query.  An  example  is  shown  in  Figure  2.16 
to  illustrate  the  DELETE  request.  This  request  removes  all  of  the  records  from 
the  Person  file  whose  age  is  greater  than  60. 


DELETE  ((FILE  =  Person)  and  (AGE  >  60)) 
Figure  2.16.  An  Example  of  DELETE  Request. 


The  UPDATE  request  modifies  records  of  the  database.  The  qualification 
of  an  UPDATE  request  consists  of  two  parts,  the  query  and  the  modifier.  The 
query  specifies  which  records  of  the  database  are  to  be  modified.  The  modifier 
specifies  how  the  records  being  modified  are  to  be  updated.  An  example  of  the 
UPDATE  request  is  shown  in  Figure  2.17.  This  request  modifies  all  of  the  records 
in  the  Person  file  by  incrementing  the  age  by  one.  The  query  is  (FILE  =  Person) 
and  the  modifier  is  (AGE  =  AGE  +  1). 

UPDATE  (FILE  =  Person)  (AGE  =  AGE  +  1) 

Figure  2.17.  An  Example  of  UPDATE  Request. 


35 


A  RETRIEVE  request  retrieves  records  from  the  database.  The 
qualification  of  a  retrieve  request  consists  of  a  query,  a  target-list,  and  an  optional 
by-clause.  The  query  specifies  which  records  are  to  be  retrieved.  The  target-list 
consists  of  a  list  of  output  attributes.  It  may  also  consist  of  an  aggregate 
operation,  i.e..  AVG,  COUNT,  SUM,  MIN,  MAX,  on  one  or  more  output 
attributes.  The  optional  by-clause  may  be  used  to  group  records  when  an 
aggregate  operation  is  specified.  Figure  2.18  is  an  example  of  the  RETRIEVE 
request.  This  request  lists  the  SSN.  NAME  and  AGE  of  all  records  in  the  Person 
file  whose  AGE  value  is  greater  than  seventeen.  The  query  is  (FILE  =  Person) 
and  (AGE  >  17),  the  target-list  is  (SSN,  NAME,  AGE),  and  the  by-clause  is  by 
SSN. 


RETRIEVE  ((FILE  =  Person)  and  (AGE  >  17)) 
(SSN.  NAME,  AGE)  by  SSN 

Figure  2.18.  An  Example  of  RETRIEVE  Request. 


The  last  request,  RETRIEVE-COMMON,  is  used  to  merge  two  files  by 
common  attribute-values.  Logically,  the  RETRIEVE-COMMON  request  can  be 
considered  as  a  transaction  of  two  retrieve  requests  that  are  processed  serially  in 
the  general  form  shown  in  Figure  2.19.  The  common  attributes  are  attribute-1 
(associated  with  the  first  retrieve  request)  and  attribute-2  (associated  with  the 
second  retrieve  request). 
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RETRIEVE  (query-1)  (target-list-1) 

COMMON  (attribute-1,  attribute-2) 

RETRIEVE  (query-2)  (target-list-2) 

Figure  2.19.  The  General  Form  of  RETRIEVE-COMMON  Request. 


In  Figure  2.20.  an  example  of  RETRIEVE-COMMON  from  a  population  census 
example  illustrates  this  request.  This  example  finds  all  of  the  records  in  the 
CanadaCensus  file  with  population  greater  than  100.000.  finds  all  the  records  in 
the  USCensus  file  with  population  greater  than  100.000.  identifies  records  of 
respective  files  whose  population  figures  are  common,  and  returns  the  two  city 
names  whose  cities  have  the  same  population  figures.  ABDL  provides  five 
seemingly  simple  database  operations,  which  are  nevertheless  capable  of 
supporting  complex  and  comprehensive  transactions. 


RETRIEVE  ((FILE  =  CanadaCensus)  and 
(POPULATION  >=  100000)) (CITY) 

COMMON  (POPULATION,  POPULATION) 
RETRIEVE  ((FILE  =  USCensus)  and 

(POPULATION  >=  100000)) (CITY) 

Figure  2.20.  An  Example  of  RETRIEVE-COMMON  Request. 
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III.  THE  IMPLEMENTATION  PROCESS 


A.  THE  DESIGN  GOALS 

During  the  early  stages  of  the  design  of  MLDS.  we  have  decided  that  there 
should  not  be  any  changes  to  the  kernel  data  model  and  the  kernel  data  language, 
i.e.,  the  attribute-based  data  model  and  ABDL.  Instead,  our  implementation 
resides  entirely  in  the  host  computer  system.  All  user  transactions  in  Daplex  are 
processed  in  the  Daplex  interface  and  transformed  into  ABDL  transactions  format 
before  being  forwarded  by  KC  to  KDS  for  processing. 

In  addition,  we  intend  to  make  our  interface  transparent  to  the  user.  For 
example,  a  user  with  previous  experience  in  Daplex  could  log  onto  our  system, 
issue  a  Daplex  request  and  receive  result  data  in  the  functional  format.  The  user 
requires  no  training  in  ABDL  procedures  prior  to  utilizing  the  system. 

B.  THE  IMPLEMENTATION  STRATEGY 

Due  to  the  large  size  of  the  MLDS  project  and  the  time  constraint  on  the 
thesis  students  involved,  a  suitable  implementation  strategy  must  be  employed. 
We  have  predicated  our  choice  of  the  strategy  on  minimizing  the  “software- 
crisis”  as  explained  by  Boehm  [Ref.  20].  The  strategy  we  have  decided  upon  is 
the  level-by-level,  top-down  approach.  The  system  is  initially  thought  of  as  a 
“black  box”  that  accepts  Daplex  transactions  and  then  returns  the  appropriate 
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results.  The  "black  box  is  then  decomposed  into  its  four  modules  (i.e..  LIL. 
KMS,  KC.  and  KFS).  These  modules,  in  turn,  are  further  decomposed  into  the 
necessary  functions  and  procedures  to  accomplish  the  appropriate  tasks. 

The  design  of  the  language  interface  uses  a  Systems  Specification  Language 
(SSL)  [Ref.  21]  extensively.  SSL  has  permitted  us  to  approach  the  design  from  a 
very  high-level,  abstract  perspective.  Furthermore.  SSL  has  allowed  us  to  make 
an  easy  transition  from  the  design  phase  to  the  implementation  phase. 

We  have  used  the  C  programming  language  [Ref.  22]  to  implement  the 
language  interface.  The  greatest  advantage  of  using  C  is  the  programming 
environment  that  it  resides  (i.e.,  the  UNIX  operating  system).  This 
environment  has  permitted  us  to  partition  the  Daplex  interface  and  then 
manage  the  parts  in  an  effective  and  efficient  manner.  One  disadvantage  with 
using  C  is  its  poor  error  diagnostics  that  makes  debugging  difficult.  There  is  an 
on-line  debugger  available  for  use  with  C  in  UNIX  for  debugging.  We  have 
avoided  this  option  and  instead  used  conditional  compilation  and  diagnostic 
print  statements  to  aid  in  the  debugging  process.  Another  criticism  on  C  is  that 
programs  written  in  C  are  often  cryptic.  A  C  program  is  usually  less  readable 
than  a  program  written  in  other  conventional  programming  languages.  We  have 
made  every  effort  to  ensure  that  the  C  code  we  have  written  to  be  easy  to  read 
and  comprehend.  For  instance,  we  often  write  the  code  with  extra  lines  to  avoid 
shorthand  notations  available  in  C.  These  extra  lines  have  made  the 
difference  between  comprehensible  code  and  cryptic  notations.  We  have  also 
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intentionally  minimized  the  interaction  between  procedures  to  ease  the  burden 
of  maintainability. 

C.  THE  DATA  STRUCTURE 

The  Daplex  language  interface  has  been  developed  as  a  single  user  system 
that  at  some  point  will  be  updated  to  a  multi-user  system.  Two  different 
concepts  of  the  data  are  used  in  the  language  interface  :  (l)  Data  shared  by  all 
users,  and  (2)  Data  specific  to  each  user.  The  reader  must  realize  that  the  data 
structures  used  in  our  interface  and  described  below  have  been  deliberately 
made  generic.  Hence,  these  same  structures  support  not  only  our  Daplex 
interface,  but  the  other  language  interfaces  as  well.  i.e..  DL/I.  CODASYL-DML. 
and  SQL. 

1.  Data  Shared  by  All  Users 

The  data  structures  that  are  shared  by  all  users  are  the  database 
schemas  defined  by  the  users  thus  far.  In  our  case,  these  are  the  functional 
schemas,  consisting  of  entities  (types  and  subtypes)  and  the  relationships 
(functions)  between  the  entities.  These  are  not  only  shared  by  all  users,  but 
also  shared  by  the  four  modules  of  the  MLDS,  i.e.,  LIL,  KMS,  KC,  and  KFS. 
Figure  3.1  depicts  the  first  data  structure  used  to  maintain  data. 

It  is  important  to  note  that  this  structure  is  represented  as  a  union. 
Hence,  it  is  generic  in  the  sense  that  a  user  can  utilize  this  structure  to  support 
SQL,  DL/I,  CODASYL-DML,  or  Daplex  needs.  However,  we  concentrate 
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union  dbid  node 

{ 

struct  rel  dbid  node  *dn  rel; 

struct  hie_dbid  node  *dn  hie; 

struct  net  dbid  node  *dn  net: 

struct  fun_dbid  node  *dn  fun: 

} 

Figure  3.1.  The  dbid  node  Data  Structure. 


only  on  the  functional  model.  In  this  regard,  the  fourth  field  of  this  structure 
points  to  a  record  that  contains  information  about  a  functional  database. 
Figure  3.2  illustrates  the  structure  of  this  record. 

The  fdn_name  is  simply  a  character  array  containing  the  name  of  the 
functional  database.  The  fdn  nonentptr  field  holds  a  pointer  to  the  base-type 
nonentity  node,  and  the  fdn  num  nonent  is  an  integer  value  that  represents  the 
number  of  these  nodes  in  the  database.  The  fdn  entptr  points  to  the  entity  node, 
and  as  before  the  field  that  immediately  follows  contains  an  integer  value 
representing  the  number  of  such  nodes.  The  fdn  subptr  is  a  pointer  to  the 
generalized  entity  subtype  node  and  the  integer  field  following  it  keeps  the 
number  of  these  generalized  subtype  nodes  in  the  database.  The  fdn_nonsubptr  is 
a  pointer  to  the  nonentity  subtypes  and  the  integer  following  it  keeps  the  number 
of  such  nodes  in  the  database.  The  fdn  nonderptr  points  to  the  nonentity  derived 
type  node  and  the  number  of  these  nodes  in  the  database  is  kept  in  the  next  field. 
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struct  fun 

dbid  node 

{ 

char 

fdn  name[DBNLen 

gth  4-  l] ; 

struct 

ent  non  node 

*fdn  nonentity; 

int 

fdn  num  nonent: 

struct 

ent  node 

*fdn  entity; 

int 

fdn  num  ent: 

struct 

gen  sub  node 

*fdn  subptr; 

int 

fdn  num  gen; 

struct 

sub  non  node 

*fdn  nonsubptr; 

int 

fdn  num  nonsub; 

struct 

der  non  node 

*fdn  nonderptr; 

int 

fdn  num  der: 

struct 

overlap  node 

*fdn  ovrptr; 

int 

fdn  num  ovr; 

struct 

fun  dbid  node 

*fdn  next  db: 

}; 


Figure  3.2.  The  fun  dbid  node  Data  Structure. 


The  fdn  ovrptr  and  fdn  num  ovr  are  new  fields  added  to  the  fun  dbid  node 
structure.  The  fdn  ovrptr  is  a  pointer  to  the  structure  overlap  node  which 
contains  the  overlapping  constraints  of  the  database  and  the  fdn_num_ovr  keeps 
track  of  the  number  of  such  constraints.  Finally,  the  last  field  points  to  the  next 
functional  database  node. 

Figure  3.3  depicts  the  entity  node  structure.  The  first  field  of  this 
structure  is  a  character  array  which  holds  the  name  of  the  entity,  and  the  second 
field  is  an  integer  that  is  used  for  keeping  track  of  the  last  unique  number 
assigned  to  each  entity  type  in  the  database.  The  third  field  is  an  integer 
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struct  ent  node 

{ 

char  en_name[ENLength  +  l]: 

int  en  last  ent  id; 

int  en  num  funct: 

int  en_terminal: 

struct  function  node  *en  ftnptr; 

struct  ent  node  ”en  next  ent: 

}: 

Figure  3.3.  The  ent  node  Data  Structure. 


representation  of  the  number  of  functions  associated  with  the  entity  that  this 
node  represents.  For  instance,  the  “person”  entity  has  two  functions  associated 
with  it,  “name”  and  “ssn”  The  fourth  field  is  an  integer  representation  of  a 
boolean  function  for  indicating  whether  the  entity  is  a  terminal  type.  An  entity 
type  is  a  terminal  type  if  it  is  not  a  supertype  to  any  subtype.  The  en_ftnptr  is  a 
pointer  to  the  function  node  associated  with  this  entity  node.  The  last  field 
points  to  the  next  entity  node  in  the  database. 

The  structure  of  the  gen  sub  node  is  shown  in  Figure  3.4.  The  first  field, 
similar  to  previous  structures,  holds  the  name  of  the  generalized  entity  subtypes. 
An  example  applied  to  the  uni v  data  base  is  “employee”  The  gsn_num_funct  field 
holds  the  number  of  functions  associated  with  the  entity  subtype,  and  the 
gsn  terminal  field  is  an  integer  representation  of  a  boolean  function  and  holds  a 
“1”  if  the  generalized  subtype  entity  is  not  a  supertype.  The  gsn_entptr  field 
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struct  gen 

sub  node 

{ 

char 

gsn  name[ENLength  +  l]; 

int 

gsn  num  funct; 

int 

gsn  terminal: 

struct 

ent  node  list 

*gsn  entptr; 

int 

gsn  num  ent: 

struct 

function  node 

*gsn  ftnptr: 

struct 

sub  node  list 

*gsn  subptr; 

int 

gsn  num  sub; 

struct 

gen  sub  node 

*gsn  next  genptr; 

}: 

Figure  3.4.  The  gen  sub  node  Data  Structure. 


holds  a  pointer  to  its  supertype  which  is  of  entity  type.  In  the  case  of 
“employee”  ,  the  supertype  is  “person”  The  next  field  indicates  the  number  of 
entity  supertypes.  The  gsn  ftnptr  field  holds  a  pointer  to  a  function  associated 
with  the  generalized  subtype,  for  instance,  “salary”  The  gsn  subptr  field  holds  a 
pointer  to  the  subtype  supertype.  For  example,  the  supertype  for  the  subtype 
“supstaff"  is  “employee”  of  the  number  of  such  subtype  supertypes.  The  final 
field  simply  points  to  the  next  gen  sub  node. 

The  ent_non_node  record  is  shown  in  Figure  3.5,  and  contains 
information  about  each  nonentity  base-type  in  the  database.  The  first  field  of  the 
record  holds  the  name  of  the  nonentity  node,  for  example,  “rankname”  holds  the 
character  that  indicates  the  type  of  nonentity  node,  either  “i”  ,  integer;  “e”  , 
enumeration;  “f”  ,  floating  point;  “s”  ,  string;  “b”  .  boolean.  The  next  field 
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struct  ent  non  node 

{ 

char  enn_name[ENLength  +  l] ; 

char  enn  type; 

int  enn_total  length; 

int  enn  range: 

int  enn  num  values; 

struct  ent  value  *enn  value; 

int  enn  constant: 

struct  ent  non  node  *enn  next  node; 

}: 

Figure  3.5.  The  ent  non  node  Data  Structure. 


contains  an  integer  that  indicates  the  maximum  length  of  the  base-type  value. 
The  enn_range  field  contains  an  integer  representation  of  a  boolean  value,  a  “1” 
or  “0”  ,  that  indicates  whether  or  not  there  is  a  range  associated  with  the 
nonentity  node.  For  example,  from  Figure  2.1,  the  nonentity  “ptgrade”  has  a 
range  of  from  0.0  to  4.0,  while  “rankname”  is  without  a  range.  The 
enn  num  values  field  contains  an  integer  that  represents  the  number  of  different 
values  that  the  nonentity  can  assume.  The  next  field  contains  a  pointer  to  the 
actual  value  of  the  base-type.  As  an  example,  “rankname”  can  assume  three 
values,  the  enn  num  values  would  have  a  value  “3”  stored  and  the  enn  value 
would  point  to  a  link  list  which  contains  the  three  values  “assistant”  , 
“associate”  ,  and  “full”  If  a  value  range  is  associated  with  the  nonentity  node, 
indicated  by  enn  range  field,  then  the  enn  num  values  would  be  two  and  the 
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enn  value  will  point  to  a  linked  list  which  contains  the  lower  and  upper  bounds  of 
the  range.  The  enn  constant  field  contains  an  integer  representation  of  a  boolean 
value  that  indicates  if  the  actual  value  of  the  base-type  is  a  constant.  There  are 
no  constants  in  the  univ  database,  but,  as  an  example,  the  value  of  the  base-type 
could  assume  the  constant  value  of  pi  (3.14159265).  The  last  field  contains  a 
pointer  to  the  next  nonentity  node. 

The  sub  non  node  is  shown  in  Figure  3.6.  This  structure  is  almost 
identical  in  form  and  similar  in  purpose  to  the  ent  non  node  of  Figure  3.3.  The 
main  difference  between  the  two  structures  is  that  the  ent  non  node  is  for  a 
base-type  nonentity  and  the  sub  non  node  is  for  a  subtype  nonentity.  The 
difference  in  form  between  the  two  structures  is  the  absence  of  constants  in  the 
sub  non  node.  Maintaining  two  separate  constant  lists  would  be  redundant, 
hence  the  constants  are  found  only  in  the  ent  non  node. 


struct  sub  non  node 
{  "  " 

char  snn_name[ENLength  +  l]; 

char  snn_type; 

int  snn_total_length; 

int  snn  range; 

int  snn_num_values; 

struct  ent  value  *snn  value; 

struct  sub  non  node  *snn  next  node; 

}; 

Figure  3.6.  The  sub  non  node  Data  Structure. 
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The  next  node,  similar  to  both  the  ent  non  node  and  the  sub  non  node, 
is  the  der_non_node.  shown  in  Figure  3.7.  The  der  non  node  is  identical  in 
structure  to  the  sub  non  node  and  differs  in  function  in  that  it  applies  to  the 
derived  nonentity  subtypes. 


struct  der  non  node 

{ 

char  dnn_name[ENLength  +  lj; 

char  dnn_type: 

int  dnn  total  length; 

int  dnn  range; 

int  dnn  num  values; 

struct  ent  value  *dnn  value: 

struct  der  non  node  *dnn  next  node: 

}; 

Figure  3.7.  The  der  non  node  Data  Structure. 


The  structure  of  the  overlap  node  is  shown  in  Figure  3.8.  The  first  field 
refers  to  the  name  of  the  base  type  for  the  overlapping  entities.  For  example,  in 
the  case  of  overlapping  “graduate”  with  “faculty”  ,  the  base_type_name  is 
“person”  The  second  field  holds  a  pointer  to  the  list  of  terminal  subtypes  that  are 
overlapped.  The  third  field  keeps  a  count  of  overlapping  subtypes  in  the  list. 
The  last  field  holds  a  pointer  to  the  next  overlap  node. 

The  structure  of  the  function  node  is  shown  in  Figure  3.9.  The 
function  node  defines  the  structures  for  each  function-type  declaration.  The  first 
field  of  the  function  node  is  a  character  array  which  holds  the  name  of  the 
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struct  overlap  node 
{ 


char 

base  type  name 

[ENLength+l]; 

struct 

sub  node  list 

*snlptr; 

int 

num  sub  node: 

struct 

overlap  node 

*next: 

Figure  3.8.  The  overlap  node  Data  Structure. 


function.  The  second  field  is  a  character  that  holds  the  function  type.  The  value 


of  this  field  could  be  “f  .  "i 

integer,  string,  boolean,  or 

,  s  ,  b  or  e 

entity  respectively. 

corresponding  to  the  types  float. 

The  fn  range  field  indicates 

struct  function  node 

{ 

char 

fn  name[ENLength+l]; 

char 

fn  type; 

int 

fn  set; 

int 

fn  range; 

int 

fn  total  length; 

int 

fn  num  value; 

struct 

ent  value 

*fn  value; 

struct 

ent  node 

*fn  entptr; 

struct 

gen  sub  node 

*fn  subptr; 

struct 

ent  non  node 

*fn  nonentptr; 

struct 

sub  non  node 

*fn  nonsubptr; 

struct 

der  non  node 

*fn  nonderptr; 

int 

fn  entnull; 

int 

fn  unique; 

struct 

}; 

function  node 

*next; 

Figure  3.9. 

The  function  node  Data  Structure. 
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whether  the  function  has  a  range  of  values,  and  the  fn  set  field  indicates  whether 
the  function  is  a  set-valued  function.  A  “0”  in  this  field  would  indicate  that  the 
function  is  single-valued. 

The  fn_total_length  field  indicates  the  maximum  length,  the 
fn_num_value  field  indicates  the  number  of  values,  and  the  fn  value  field  would 
hold  a  pointer  to  the  actual  values.  The  next  five  fields  hold  pointers  to  the  type 
to  which  a  particular  function  belongs.  For  example,  the  function  “head”  in  the 
entity  “dept”  would  have  the  fn_subptr  pointing  to  the  generalized  subtype 
“faculty”  and  the  other  four  type  field  pointers  will  be  null.  When  the  function  is 
an  entity-valued  function,  the  fn  entnull  field  would  indicate  whether  the 
function  may  have  a  null  value.  The  fn  unique  field  indicates  whether  an 
uniqueness  constraint  is  applicable  to  the  function.  It  is  always  initialized  to  “0” 
and  set  to  “1”  only  when  an  uniqueness  constraint  is  specified.  For  example,  the 
“ssn”  function  in  the  “person”  entity  would  have  this  field  set  to  “1”  The  final 
field  simply  contains  a  pointer  to  the  next  function. 

The  ent  node  list  and  sub  node  list  data  structures  are  shown  in  Figure 
3.10.  These  two  structures  are  used  for  keeping  linked  list  of  pointers  to  entity 
nodes  and  generalized  subnodes  ,  respectively. 

The  data  structure  of  ent  value  is  shown  in  Figure  3.11.  It  is  used  for 
keeping  a  linked  list  of  entity  values.  As  the  length  of  an  entity  value  is  not  a 
constant,  the  ev  value  field  is  just  a  character  pointer.  Exact  size  of  memory 
could  be  allocated  at  the  time  when  an  entity  value  is  to  be  stored. 
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struct  ent  node  list 
{  '  ' 

struct  ent  node  *entptr; 

struct  ent  node  list  *next; 

}; 

struct  sub  node  list 
{  '  " 

struct  gen  sub  node  *subptr; 

struct  sub  node  list  *next; 

}; 

Figure  3.10.  The  ent  node  list  and  sub  node  list  Data  Structures. 


struct  ent  value 

{ 

char  *ev  value; 

struct  ent  value  *next; 

}; 

Figure  3.11.  The  ent  value  Data  Structures. 


2.  Data  Specific  to  Each  User 

This  category  of  data  represents  information  needed  to  support  each 
user’s  particular  interface  needs.  The  data  structures  used  to  accomplish  this 
can  be  thought  of  as  forming  a  hierarchy.  At  the  root  of  this  hierarchy  is  the 
data  structure,  user_info,  that  maintains  information  on  all  of  the  current  users  of 
a  particular  language  interface  (see  Figure  3.12).  The  user  info  data  structure 
holds  the  ID  of  the  user,  a  union  that  describes  a  particular  interface,  and  a 
pointer  to  the  next  user.  The  union  field  is  of  particular  interest  to  us.  As 
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struct  user  info 

{ 

char  uidfUID  Length  +  l]; 
union  li_info  li  type: 

struct  user_info  *next  user; 

} 

Figure  3.12.  The  user  info  Data  Structure. 


noted  earlier,  a  union  serves  as  a  generic  data  structure.  In  this  case,  the  union 
can  hold  the  data  for  a  user  accessing  either  a  CODASYL-DML  language 
interface  laver(LIL),  a  DL/I  LIL.  an  SQL  LIL.  or  a  Daplex  LIL.  The  ii  info 
union  is  shown  in  Figure  3.13. 

We  are  only  interested  in  the  data  structures  containing  user 
information  which  relates  to  the  Daplex  language  interface  in  this  section.  The 
structure  used  is  referred  to  as  dap  info  and  is  depicted  in  Figure  3.14.  The 


union  li  info 


{ 


struct 

sql  info 

li  sql; 

struct 

dli  info 

lidli; 

struct 

dml  info 

li  dml; 

struct 

dap  info 

li  dap; 

} 

Figure  3.13. 

The  li  info  Data  Structure. 
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first  field  of  this  structure,  dpi  curr_db.  is  itself  a  record  and  contains  currency 
information  on  the  database  being  accessed  by  a  user.  The  second  field,  dpi_file, 
is  also  a  record.  The  file  record  contains  the  file  descriptor  and  file  identifier  of  a 
file  of  Daplex  transactions,  either  requests  or  database  descriptions.  The  next 
field,  dpi  dml  tran.  is  also  a  record,  and  holds  information  that  describes  the 
Daplex  transactions  to  be  processed.  This  includes  the  number  of  requests  to  be 
processed,  the  first  request  to  be  processed,  and  the  current  request  being 
processed.  The  fourth  field  of  the  dap  info  record,  dap  operation,  is  a  flag  that 
indicates  the  operation  to  be  performed.  This  may  be  either  the  loading  of  a  new 
database,  or  the  execution  of  a  request  against  an  existing  database.  The  next 


struct  dap  info 

{ 


struct  curr  db  info 
struct  file  info 
struct  tran  info 
int  dap  operation; 

struct  ddl  info 

union  kms  info 

union  kfs  info 
union  kc  info 
int  dap  error; 

int  dap  answer; 

int  dap_buff_count; 

}; 


*dpi_ddl_files; 
dpi  kms  data; 
dpi  kfs  data; 
dpi  kc  data; 


dpi  curr  db; 

dpi_file; 

dpi  dml  tran; 


Figure  3.14.  The  dap  info  Data  Structure. 
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field.  dpi_ddl_files,  is  a  pointer  to  a  record  describing  the  descriptor  and  template 
files.  These  files  contain  information  about  the  ABDL  schema  corresponding  to 
the  current  functional  database  being  processed,  i.e.,  the  ABDL  schema 
information  for  a  newly  defined  functional  database.  The  next  three  fields, 
dpi  kms_data.  dpi_kfs  data  and  dpi  kc  data,  are  unions  that  contain 
information  required  by  KMS,  KFS  and  KC.  respectively.  The  next  field,  error,  is 
an  integer  value  representing  a  specific  error  type.  The  next  field,  answer,  is  used 
by  LIL  to  record  answers  received  through  its  interaction  with  the  user  of  the 
interface.  The  last  field,  buff  count,  is  a  counter  variable  used  in  KC  to  keep 
track  of  the  result  buffers. 
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IV.  THE  LANGUAGE  INTERFACE  LAYER 


The  function  of  the  language  interface  layer  (LIL)  module  is  to  control  the 
order  in  which  the  other  modules  are  called,  and  allow  the  user  to  input 
transactions  from  either  a  file  or  the  terminal.  A  transaction  may  take  the  form 
of  either  a  database  description  (DBD)  of  a  new  database,  or  a  Daplex  request 
against  an  existing  database.  A  single  transaction  may  contain  multiple  requests, 
allowing  a  group  of  requests  to  perform  a  single  task.  For  example,  several 
“atomic”  statements,  those  statements  that  are  executed  as  an  indivisible  action 
with  respect  to  the  database,  could  be  executed  together  as  a  single  transaction. 

The  mapping  process  occurs  when  LIL  sends  a  single  transaction  to  KMS. 
After  the  transaction  has  been  received  by  KMS,  KC  is  called  to  process  the 
transaction.  Control  always  returns  to  LIL,  where  the  user  may  either  continue 
with  another  transaction  or  close  the  session  by  exiting  to  the  operating  system. 

LIL  is  menu-driven,  and  when  the  transactions  are  read  from  either  a  file  or 
the  terminal,  they  are  stored  in  the  dap_req  info  data  structure.  If  the 
transactions  are  database  descriptions,  they  are  sent  to  KMS  in  sequential  order. 
If  the  transactions  are  Daplex  requests,  the  user  is  prompted  by  another  menu  to 
selectively  choose  an  individual  request  to  be  processed.  The  menus  provide  an 
easy  and  efficient  way  for  the  user  to  view  and  select  the  methods  of  request 
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processing  desired.  Each  menu  is  tied  to  its  predecessor,  so  that  by  exiting  one 
menu  the  user  is  moved  up  the  ‘‘menu  tree"  This  allows  the  user  to  perform 
multiple  tasks  in  one  session. 

A.  THE  LIL  DATA  STRUCTURES 

LIL  uses  three  data  structures  to  store  the  user's  transactions  and  control  the 
transaction  sent  to  KMS.  It  is  important  to  note  that  these  data  structures  are 
shared  by  both  LIL  and  KMS. 

The  first  dara  structure  is  named  tran  info  and  is  shown  in  Figure  4.1.  The 
first  field  of  this  record,  ti  first  req.  is  the  pointer  to  the  first  request  data 
structure  that  contains  the  union  of  all  the  language  requests  of  MLDS  (see 
Figure  4.2).  The  first  request  can  originate  from  either  a  file  or  a  terminal.  The 
second  field  of  tran  info  is  a  pointer  to  the  current  transaction,  set  by  LIL  to  tell 
KMS  the  precise  transaction  to  process  next.  The  third  field  contains  the  number 
of  transactions  currently  in  the  transaction  list.  This  number  is  used  for  loop 


struct  tran  info 

{ 

union  req  info  ti  first  req; 

union  req  info  ti  curr  req; 
int  ti  no  req; 

}; 


Figure  4.1.  The  tran  info  Data  Structure. 
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union  req_info 

{ 

struct  rel  req  info  *ri  rel_req; 

struct  hie  req  info  *ri_hie_req; 

struct  net  req  info  *ri_net_req; 

struct  dap  req_info  *ri_dap_req; 
struct  ab  req  info  *ri_ab_req; 

}; 

Figure  4.2.  The  req  info  Data  Structure. 


control  when  printing  the  transaction  list  to  the  screen,  or  when  searching  the  list 
for  a  transaction  to  be  executed. 

The  second  data  structure  used  by  LIL.  req  info,  is  a  union  of  the  language 
requests  of  MLDS,  and  is  shown  in  Figure  4.2.  It  serves  a  routing  control 
function,  in  that  it  routes  a  transaction  request  to  the  appropriate  database 
language.  In  this  thesis,  we  are  concerned  only  with  the  the  fourth  field  of  this 
structure,  which  contains  a  pointer  to  the  dap  req  info  data  structure  (see  Figure 
4.3),  each  copy  representing  a  Daplex  user  transaction. 

The  third  data  structure  used  by  LIL  is  named  dap  req_info.  Each  copy  of 
this  record  represents  a  user  transaction,  and  thus,  is  an  element  of  the 
transaction  list.  The  dap  req  info  data  structure  is  shown  in  Figure  4.3.  The 
first  field  of  this  record,  dap_req,  is  a  character  string  that  contains  the  actual 
Daplex  transaction.  The  second  field,  dap  req  len,  contains  the  length  of  the 
transaction.  It  is  used  to  allocate  the  exact,  and  therefore  minimal,  amount  of 
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struct  dap 

req  info 

{ 

char 

*dap  req; 

int 

dap  req  len; 

struct 

temp  str  info 

*dap  in  req; 

struct 

dap  req  info 

*dap  sub  req; 

struct 

dap  req  info 

*dap  next  req; 

}; 

Figure  4.3.  The  dap_req  info  Data  Structure. 


memory  space  for  the  transaction.  The  third  field,  dap  in  req,  is  a  pointer  to  a 
list  of  character  arrays  that  each  contains  a  single  line  of  one  transaction.  After 
all  lines  of  a  transaction  have  been  read,  the  line  list  is  concatenated  to  form  the 
actual  transaction,  dap  req.  If  a  transaction  contains  multiple  requests,  the 
fourth  field,  dap  sub  req,  points  to  the  list  of  requests  that  make  up  the 
transaction.  In  this  case,  the  field  dap  in  req  is  the  first  request  of  the 
transaction.  The  last  field,  dap  next  req,  is  a  pointer  to  the  next  transaction  in 
the  list  of  transactions. 


B.  FUNCTIONS  AND  PROCEDURES 

LIL  makes  use  of  a  number  of  functions  and  procedures  in  order  to  create  the 
transaction  list,  pass  elements  of  the  list  to  KMS,  and  maintain  the  database 
schemas.  These  functions  and  procedures  had  been  implemented  by  Anthony  and 
Billings  [Ref.  11].  We  have  made  some  changes  and  additions  to  the  original 
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implementation.  As  the  main  structure  of  the  LIL  module  remains  basically 
unchanged,  we  do  not  repeat  the  description  of  the  LIL  processes  here.  Instead, 
we  document  the  changes  and  additions  in  this  section.  The  updated  C  code 
implementation  of  the  LIL  module  is  listed  in  Appendix  C. 

1.  Changes  to  the  Original  Implementation 

As  mentioned  in  Chapter  I,  there  are  four  similar  sets  of  software 
modules,  LIL.  KMS,  KC.  and  KFS,  required  for  the  each  of  the  four  different  data 
language  interfaces.  Due  to  the  similarity  between  these  interfaces,  it  is  not 
surprising  that  the  corresponding  modules  in  different  interfaces  are  very  similar. 
The  detailed  codes  of  the  corresponding  modules  may  not  be  identical,  but  the 
functionalities  are  mostly  the  same.  As  a  result,  identical  procedure  names  were 
used  for  the  similar  procedures  in  different  implementations  of  the  interfaces.  For 
example,  every  LIL  module  in  the  interfaces  provides  a  procedure  that  allows  the 
user  to  load  in  a  new  database  and  all  implementations  used  load  new  as  the 
procedure  name.  This  posts  no  problems  when  the  interfaces  are  compiled  and 
run  individually.  However,  if  the  four  interfaces  are  to  be  integrated,  it  is 
impossible  to  link  four  different  procedures  having  the  same  name,  load  new. 
There  are  quite  a  number  of  these  similar  procedures  in  LIL.  To  avoid  this 
problem  for  later  integration  of  MLDS,  we  prefixed  the  procedure  names  in  the 
Daplex  interface  by  “f_”  which  stands  for  functional.  The  procedure  names  that 
were  changed  are  f_language  interface  layer,  f  load  new,  f  process  old, 
f_kernel_controller,  f  kernel  mapping  system,  f  dbd  to  KMS,  f  free  request, 
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f_rd_temp j5tr_info.  f_read  transaction  file,  f  read  terminal,  and  f  read  file. 
The  C  code  source  files  that  were  affected  are  main.c,  lil.c,  lilcommon.c.  and 
readrtnes.c  (see  Appendix  C). 

While  going  through  the  program  codes  to  check  for  procedures  with 
identical  names,  we  found  three  procedures  not  only  with  identical  name  but 
identical  functionality  also.  These  procedures  are  get  new  user,  get  ans.  and 
to  caps.  In  this  case,  there  is  no  necessity  to  duplicate  the  procedures  of  identical 
function  with  different  names  in  different  interfaces.  There  are  extracted  from 
LIL  and  included  in  the  common  routine  file,  mdbsgenerals.c.  As  get_ans  was  the 
only  procedure  in  the  source  file  getans.c.  and  get_new_user  was  the  only 
procedure  in  the  source  file  getuser.c.  these  two  files  were  deleted.  The  procedure 
to  caps  was  removed  from  the  source  file  lilcommon.c. 

2.  Additional  Procedures 

For  the  interface  between  MLDS  and  MBDS.  template  files  and 
descriptor  files  are  required.  These  files  are  to  be  created  in  the  LIL  module  of 
MLDS.  Procedures  for  creation  of  template  and  description  files  have  been 
implemented  for  all  of  the  interfaces  except  the  Daplex  interface  [Ref.  23].  In  this 
section,  we  describe  the  implementations  of  these  procedures  for  the  Daplex 
interface. 

a.  Creating  the  Template  File 

A  template  is  a  specification  of  record  structure  that  the  database 
administrator  uses  to  characterize  the  organization  of  records  in  a  file  for  an 


59 


attribute-based  database.  A  record  is  defined  to  be  a  collection  of  attributes.  We 
can  describe  the  structure  of  a  record  in  terms  of  the  number  of  attributes,  the 
names  of  the  attributes,  and  the  associated  data  types  and  values.  In  doing  so. 
we  can  separate  the  description  of  the  record  away  from  the  actual  records  and 
keep  the  record  description  in  a  template.  The  template  can  later  be  used  for 
determining  and  specifying  the  characteristics  of  an  attribute  and  its  relation  with 
other  attributes  in  a  record.  When  the  records  are  collected  to  form  a  file,  the  file 
structure  would  have  the  same  attributes  and  similar  relations  among  records  in 
the  same  file.  Because  the  structural  information  is  maintained  in  a  single 
template,  a  file  structure  can  be  reorganized  by  simply  changing  the  template. 

The  template  files  in  the  interfaces  have  a  specific  structure.  The 
format  of  a  template  file  for  a  database  with  n  files,  hence  n  templates,  is  shown 
in  Figure  4.4.  A  typical  template  description  for  a  record  with  m  attributes  is 


D  at  ab  as  e-  n  ame 
N  umber-of-templates 
Template-description- 1 
Template-description-2 


Template-description-n 
Figure  4.4.  The  Template  File  Format. 
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given  in  Figure  4.5.  The  first  field  gives  the  number  of  attributes  in  the  template. 
Note  that  this  number  is  always  one  more  than  the  number  of  attributes  in  the 
record,  i.e.,  m  +  1.  This  is  because  a  constant  attribute,  FILE,  is  always  added 
before  the  actual  attributes  of  the  record.  The  data  type  in  the  template 
description  is  a  single  character  field  which  can  be  s,  i  or  f  representing  string, 
integer  or  float  type. 

The  template  file  for  the  Daplex  interface  is  created  by  transforming 
the  Daplex  data  structure  into  the  template  file  structure.  First,  the  data 
structure  fun_dbid  node  in  Figure  3.2  is  read  to  get  the  database  name  and  the 
number  of  templates  in  the  database.  The  number  of  templates  is  obtained  by 
adding  the  number  of  entity  type  nodes,  fdn_num_ent,  and  the  number  of 
generalized  subnodes,  fdn  num_gen,  in  the  database.  Subsequently,  the  two 
linked  list  structures,  ent  node  in  Figure  3.3  and  gen  sub  node  in  Figure  3.4,  are 


Number-of-attributes 
Template-name 
FILE  s 

attribute-1  data-type-1 
attribute-2  data-type-2 


attribute-m  data-type-m 
Figure  4.5.  A  Typical  Template  Description. 
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traversed  to  extract  the  required  information  for  each  entity  type  node  and 
generalized  subnode.  Figure  4.6  represents  an  algorithm  for  the  transformation. 
The  C  code  implementation  is  listed  in  Appendix  B. 


Assertions: 

1.  The  Daplex  database  D  has  m  entity-type  nodes  {Et,  E2.  .  .  .  ,  Em}. 

2.  The  Daplex  database  D  has  n  generalized  subnodes  {S,,  S2,  .  .  .,  5n}. 

3.  Each  entity-type  node  Et,  i  =  1,  .  .  .  ,  m,  has  the  entity-type  name  £,-name. 

4.  Each  generalized  subnode  Sr  i  =  1,  .  .  .  ,  n,  has  the  entity-type  name  5-name. 

5.  Each  £.,  i  =  1,  .  .  .  ,  m,  has  AE  attributes. 

6.  Each  S(,  i  =  1.  .  .  .  ,  n,  has  As  attributes. 

7.  Each  attribute  As  ,  j  =  1 AE  or  As  has  the  attribute  name  4i;-name. 

8.  Each  attribute  At) ,  j  =  1 . AE  or  As‘  has  the  attribute  type  4i  ;-type. 


Algorithm: 

write  Database-name 
write  Number-of-templates 

/*  Repeat  for  each  entity-type  node  in  database  */ 
for  each  entity-type  node  £  in  database  D  do 

write  ( Ae  +  l)  /*  Number  of  attributes  */ 

write  £-iiame  /*  Entity  name  */ 

write  "File  s" 

/*  Repeat  for  each  attribute  in  the  entity-type  node  */ 
for  each  attribute  AI}  in  entity-type  node  Et  do 

write  i.-name  yl^-type  /*  Attribute  name,  type  */ 

}  } 

/*  Repeat  for  each  generalized  subnode  in  database  * / 
for  each  generalized  subnode  5,.  in  database  D  do 

write  (>15  +  1)  /*  Number  of  attributes  */ 

write  5, -name  /*  Entity  subtype  name  *  / 

write  "FILE  s"  '  ' 

I*  Repeat  for  each  attribute  in  the  generalized  subnode  */ 

for  each  attribute  Ai}  in  generalized  subnode  5(-  do 

write  ^,  -name  .4-^-type  /*  Attribute  name,  type  */ 

}  } 

Figure  4.6.  Algorithm  for  Creating  the  Template  File. 
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b.  Creating  the  Descriptor  File 


While  the  template  file  is  used  to  define  the  record  structures  of  the 
database,  the  descriptor  file  is  used  to  reflect  the  semantic  meanings  and  intended 
use  of  the  data.  In  the  descriptor  file,  the  user  specifies  the  attributes  (or  fields)  to 
be  regarded  as  “key’’  or  “indexing”  attributes  (fields).  MBDS,  i.e.,  KDS,  utilizes 
this  information  to  create  the  index  (cluster)  arrangements  that  permit  the  most 
rapid  and  efficient  response  to  transactions  sent  to  the  database  system. 

The  descriptor  files  in  the  interfaces  also  has  a  specific  structure.  The 
format  of  a  descriptor  file  that  has  n  descriptors  is  shown  in  Figure  4.7.  The  first 


Database-name 
FILE  B 

!  Name-of-first-entity 
!  Name-of-second-entity 


!  Name-of-last-entity 

@ 

Descriptor-definition- 1 
Descriptor-definition-2 


Descriptor-definition-n 

$ 

Figure  4.7.  The  Descriptor  File  Format. 
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entry  in  the  format  gives  the  name  of  the  database.  The  “FILE  B’’  on  the  second 
line  is  a  constant  that  must  always  be  there.  Subsequently,  for  each  entity  (entity 
type  or  subtype)  in  the  Daplex  database,  a  line  is  added  beginning  with  an 
exclamation  mark  “!”  and  a  blank  space,  followed  by  the  entity-type  name.  At 
the  end  of  this  list,  an  at-sign  is  added  to  indicate  the  end  of  the  basic  set  of 

descriptors  for  a  given  database.  It  is  then  followed  by  a  sequence  of  descriptor 
definitions.  The  $  sign  at  the  last  line  of  the  format  indicates  the  end  of  the 
descriptor  file.  Each  descriptor  definition  in  the  descriptor  file  is  expressed  in 
terms  of  the  function,  its  associated  descriptor  type  and  data  type,  and  followed 
by  the  Range-or-Equality-Statements  as  shown  in  Figure  4.8.  The  descriptor  type 
can  be  either  A  or  B  which  reflects  the  user's  choice  of  designating  the  indexes  for 
a  function  as  either  a  range  (A)  or  an  equality  (B).  The  data  type  can  be  i,  s  or  f, 
representing  integer,  string  or  float  type.  The  Range-or-Equality-Statements 
represents  a  sequence  of  statements  reflecting  the  selected  range  or  equality  values 
depending  on  the  descriptor  type  specified.  If  the  descriptor  type  is  A,  then  the 


Attribute  Descriptor-type  Data-type 

{ 

Range-or-Equality-Statements 

} 

© 

Figure  4.8.  The  Typical  Descriptor  Definition. 


64 


sequence  of  statements  are  just  lines  of  two  numbers  specifying  the  lower  limit 
and  upper  limit  of  the  selected  range.  An  example  of  a  descriptor  definition  with 
range  type  statements  is  shown  in  Figure  4.9.  Note  that  although  more  than  one 
range  can  be  specified,  the  ranges  must  be  mutually  exclusive. 


salary  A  f 

1000.00  2000.00 

3000.00  3500.00 

5000.00  9000.00 

Figure  4.9.  An  Example  of  a  Range  Type  Descriptor. 


Figure  4.10  gives  an  example  of  an  equality  type  descriptor.  An 
equality  type  statement  starts  with  an  exclamation  mark  followed  by  an  exact 
function  value.  In  our  example,  the  descriptor  is  for  establishing  equality  index 
terms  for  selection  of  the  function  dept  to  include  the  departments  specified. 


dept  B  s 
!  Computer  science 
!  Electrical  engineering 
!  Mathematics 
!  Weapon  systems 
@ 


Figure  4.10.  An  Example  of  an  Equality  Type  Descriptor. 
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Unlike  the  creation  of  the  template  file  which  is  accomplished  without 
the  user's  knowledge  or  participation,  the  creation  of  the  descriptor  file  involves 
the  user.  The  user  must  respond  to  a  sequence  of  prompts  in  order  to  determine 
the  set  of  descriptors  to  include  in  the  descriptor  file.  It  is,  in  fact,  the  users 
detailed  knowledge  of  the  database  and  intended  uses  of  the  database  that  will 
permit  an  effective  choice  of  the  descriptors. 

The  algorithm  for  creating  the  descriptors  of  a  Daplex  database  is 
given  in  Figure  4.11.  This  algorithm  is  basically  similar  to  the  those  for  the  other 
three  interfaces  [Ref.  23].  The  main  difference  is  that  there  are  two  data 
structures,  ent  node  and  gen  sub  node,  to  be  traversed  instead  of  one  as  in  the 
other  interfaces.  Also,  an  important  point  to  note  is  that  Daplex  allows  a 
function  in  an  entity  which  is  of  entity  type.  In  this  case,  the  user  is  not 
permitted  to  specify  descriptors  for  this  function. 


Assertions: 

1.  The  Daplex  database  D  has  m  entity-type  nodes  {.Ej,  £2,  .  .  .  ,  Em}. 

2.  The  Daplex  database  D  has  n  generalized  subnodes  {5,,  S2,  .  .  .,  5n}. 

3.  Each  entity-type  node  £,.  i  =  1,  .  .  .  ,  m,  has  the  entity-type  name  £,-name. 

4.  Each  generalized  subnode  5,,  i  =  1.  .  .  .  ,  n,  has  the  entity-type  name  5,-name. 

5.  Each  E,,  i  =  1,  .  .  .  ,  m.  has  AE  attributes. 

ft 

6.  Each  5,,  i  =  1,  .  .  .  ,  n,  has  As  attributes. 

I 

7.  Each  attribute  At  -,  j  =  1,  .  .  .  .  AE  or  As  has  the  attribute  name  ,4,^-name. 

Figure  4.11.  Algorithm  for  Creating  the  Descriptor  File,  (continued) 
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Algorithm: 

write  Database-name 
write  "FILE  B" 

/*  Repeat  for  each  entity- type  node  in  database  */ 
for  each  entity-type  node  £■  in  database  D  do 
write  "!"  £.-name 

/*  Repeat  for  each  entity  subnode  in  database  */ 
for  each  entity  subnode  5(-  in  database  D  do 
write  "!"  5-name 

write 


/*  Repeat  for  each  entity-type  node  in  database  */ 
for  each  entity-type  node  £,  in  database  D  do 

/*  Repeat  for  each  attribute  in  entity- type  node  */ 
for  each  attribute  A,  in  entity- type  node  E  do 

^  »>/  *  i 

if  (/ti  ;  is  not  of  entity  type)  then 

if  (.41;  already  selected  as  index  term)  then 
if  (more  values  to  be  added)  then 
write  additional  indexing  values 


else 


if  (.4,.  is  to  be  index  term)  then 
write  4  A|B 
write  indexing  values 
write 


/*  Repeat  for  each  entity  subnode  in  database  */ 
for  each  entity  subnode  5,  in  database  D  do 
{ 

/*  Repeat  for  each  attribute  in  entity  subnode  */ 
for  each  attribute  Ai  j  in  entity-type  node  5,  do 

^  (Atj  is  not  of  entity  type)  then 

if  (a{j-  already  selected  as  index  term)  then 
if  (more  values  to  be  added)  then 
write  additional  indexing  values 

else 

if  (A,-  is  to  be  index  term)  then 
write  AtJ  A|B 
write  indexing  values 
write 

)  } 

write 


Figure  4.11.  Algorithm  for  Creating  the  Descriptor  File. 
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V.  THE  KERNEL  MAPPING  SYSTEM 


The  kernel  mapping  system  (KMS)  module  is  called  from  the  language 
interface  layer  (LIL)  when  LIL  has  received  Daplex  requests  input  by  the  user. 
The  function  of  KMS  is  to:  (l)  parse  the  request  to  validate  the  user's  Daplex 
syntax,  and  (2)  translate,  or  map,  the  request  to  an  equivalent  ABDL  request. 

The  remainder  of  this  chapter  is  organized  into  four  parts.  In  the  first  part, 
we  present  an  overview  of  the  general  mapping  process,  focusing  on  the  system 
structure  and  the  design  philosophy.  In  the  second  part,  we  describe  how  the  data 
definition  portion  of  Daplex  is  mapped.  In  the  third  part,  we  describe  how  the 
data  manipulation  portion  of  Daplex  is  mapped.  Finally,  in  the  fourth  part,  we 
outline  the  outstanding  work  to  be  done  to  complete  the  implementation. 

A.  AN  OVERVIEW  OF  THE  MAPPING  PROCESS 

From  the  description  of  the  KMS  functions  above  we  immediately  see  the 
requirement  for  a  parser  as  a  part  of  the  KMS.  This  parser  validates  the  Daplex 
syntax  of  the  input  request.  The  parser  is  also  responsible  for  doing  the 
translation  of  Daplex  to  ABDL.  Thus,  the  parser  is  the  driving  force  behind  the 
entire  mapping  system. 
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1.  The  KMS  Parser  /  Translator 


The  KMS  parser  has  been  constructed  by  utilizing  Yet-Another-Compiler 
Compiler  (YACC)  [Ref.  23].  YACC  is  a  program  generator  designed  for  syntactic 
processing  of  token  input  streams.  Given  a  specification  of  the  input  language 
structure  (a  set  of  grammar  rules),  and  the  user's  code.  YACC  generates  a 
program  that  syntactically  recognizes  the  input  language  and  allows  invocation  of 
the  user’s  code  throughout  this  recognition  process.  The  class  of  specifications 
accepted  is  a  very  general  one:  LALR(l)  grammars.  It  is  important  to  note  that 
the  user's  code  mentioned  above  is  our  mapping  code  that  is  going  to  perform  the 
Daplex-to-ABDL  translation.  We  utilize  a  Lexical  Analyzer  Generator  (LEX) 
Ref.  24].  LEX  is  a  program  generator  designed  for  lexical  processing  of 
character  input  streams.  The  major  difference  between  LEX  and  YACC  is  the 
specification  format  for  the  rules.  In  the  LEX  specification,  the  rules  are  regular 
expressions  similar  to  those  used  in  many  text  editors.  Given  a  regular 
expression  specification  of  the  input  strings,  LEX  generates  a  program  that 
partitions  the  input  stream  into  tokens  and  communicates  these  tokens  to  the 
parser. 

The  parser  produced  by  YACC  consists  of  a  finite-state  automaton  with  a 
stack  that  performs  a  top-down  parse,  with  left-to-right  scan  and  a  one  token 
look-ahead.  Control  of  the  parser  begins  initially  with  the  highest-level  grammar 
rule.  Control  descends  through  the  grammar  hierarchy,  calling  lower  and 
lower- level  grammar  rules  while  searching  for  appropriate  tokens  in  the  input.  As 
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the  appropriate  tokens  are  recognized,  some  portions  of  the  mapping  code  are 
invoked  directly.  In  other  cases,  tokens  are  propagated  upwards  through  the 
grammar  hierarchy  until  a  higher-level  rule  has  been  satisfied,  and  a  further 
translation  is  performed.  When  all  of  the  necessary  lower-level  grammar  rules 
have  been  satisfied  and  control  has  ascended  to  the  highest-level  rule,  the  parsing 
and  translation  processes  are  complete.  In  Section  B  and  C,  we  give  illustrative 
examples  of  these  processes.  We  also  describe  the  subsequent  semantic  analysis 
necessary  to  complete  the  mapping  process. 

2.  The  Grammar  Rules 

To  begin  with  the  implementation  specification  for  KMS,  we  utilized  the 
Adaplex  grammar  in  the  Backus-Naur  Form  (BNF),  provided  to  us  by  Dr. 
Stephen  Fox  of  CCA  [Ref.  25].  The  Adaplex  BNF  grammar  was  then  reduced  to 
a  pure  Daplex  BNF  grammar  by  eliminating  all  system  dependent  and  Ada 
related  goals  and  rules  [Ref.  11].  In  this  thesis,  we  further  modified  the  grammar 
for  three  reasons.  First,  the  original  grammar  was  too  complicated  for 
implementation.  There  were  many  layers  of  recursive  rules  that  made  the 
grammar  difficult  to  comprehend  and  implement.  We  modified  the  grammar  in  a 
way  that  recursions  in  the  grammar  were  reduced  to  the  minimum  without  losing 
the  flavor  of  the  Daplex  language.  Second,  when  YACC  was  used  to  implement 
the  grammar  interleaved  with  C  procedures,  ambiguities  for  some  rules  with 
multiple  alternatives  of  similar  formats  often  occurred.  In  most  cases,  YACC 
would  invoke  its  disambiguating  rules  [Ref.  23:  pp.  11-14]  and  produce  a  correct 
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parser  by  selecting  one  of  the  valid  steps  wherever  it  has  a  choice.  However,  if  a 
procedure  (action)  must  be  done  before  the  parser  can  be  sure  which  rule  is  being 
recognized,  then  the  application  of  disambiguating  rules  is  inappropriate.  In  this 
case,  YACC  issues  an  error  message  and  ignore  all  conflicting  rules  except  the  first 
one.  Third,  this  and  prior  language  interfaces  for  SQL,  DL/I,  and  CODAS YL- 
DML  have  stressed  implementations  of  a  subset  of  each  language.  This  rich  subset 
provides  all  of  the  basic,  primary  database  operations.  Our  implementation  for 
Daplex  follow  this  philosophy. 

We  now’  would  like  to  demonstrate  the  problem  of  ambiguity  by  an 
example.  In  Figure  5.1,  The  grammar  rule  for  <set-constructor>.  which  has  four 
alternatives,  is  perfectly  acceptable  in  BNF  form.  To  implement  this  grammar 
rule  in  YACC,  we  would  have  codes  that  are  in  the  form  shown  in  Figure  5.2.  In 
this  example,  there  is  ambiguity  on  whether  procedure-2  or  procedure-3  should  be 
used  when  the  parser  sees  a  LCB  followed  by  a  simple  expr.  The  resulting  parser 
created  by  YACC  then  has  to  choose  to  recognize  only  the  first,  second  and  fourth 


<set-constructor>  ::= 

LCB  <basic-expr-list>  RCB 

|  LCB  <simple-expr>  IN  <namel>  WHERE  <dap-expr>  RCB 
j  LCB  <simple-expr>  IN  <dap-range>  WHERE  <dap-expr>  RCB 
j  LCB  RCB 

Figure  5.1.  The  Grammar  Rule  For  <set-constructor>. 
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set  constructor  : 

LCB  {  procedure-1  }  basic  expr  list  {  procedure-la  }  RCB 
|  LCB  {  procedure-2  }  simple  expr  IN  namel 

WHERE{  procedure-2a  }  dap_expr  RCB 
|  LCB  {  procedure-3  }  simple_expr  IN  dap  range 
WHERE  {  procedure-3a  }  dap  expr  RCB 
|  LCB  {  procedure-4  }  RCB 

Figure  5.2.  The  Implementation  of  <set-constructor>  in  YACC. 


alternative  rules.  Any  statement  written  in  the  third  form  is  reported  as  having 
syntax  error  by  the  parser.  Therefore,  it  is  necessary  to  rewrite  the  grammar  rules 
so  that  the  same  inputs  are  read  but  there  are  no  conflicts.  The  modified  version 
of  the  grammar  in  our  implementation  is  listed  in  Appendix  D. 

B.  MAPPING  THE  DATABASE  DEFINITION  LANGUAGE 

In  this  section,  we  describe  the  additional  data  structures  required  to 
implement  the  database  definitions  portion  of  the  KMS.  This  is  followed  by  the  a 
general  description  of  the  mapping  algorithms. 

1.  The  Data  Structures 

In  addition  to  the  data  structures  described  in  Chapter  III,  KMS  also 
requires  some  data  structures  for  use  during  the  mapping  process.  We  describe 
two  of  these  data  structures  that  are  shared  by  the  database  definitions  portion 
and  the  database  manipulation  portion  here.  Those  data  structures  that  are  used 
solely  in  the  manipulation  portion  are  discussed  in  a  later  section.  At  the  end  of 
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the  mapping  process,  and  before  control  is  returned  to  LIL,  all  of  the  data 
structures  unique  to  KMS  that  have  been  allocated  during  the  mapping  process 
are  freed. 

The  first  data  structure  is  dap  kms_info,  shown  in  Figure  5.3.  It  is  used 
to  accumulate  information  during  the  grammar  parse.  It  is  a  record  that  allows 
the  information  to  be  saved  until  a  point  in  the  parsing  processing  where  it  may 
be  utilized  in  the  appropriate  portion  of  the  translation  process.  The  first  three 
fields  in  this  data  structure,  point  to  the  same  data  structure,  ident  list,  which 


struct  dap  kms  info 


{ 


struct 

ident  list 

struct 

ident  list 

struct 

ident  list 

struct 

sub  node  list 

struct 

der  non  node 

struct 

sub  non  node 

struct 

ent  non  node 

struct 

function  node 

struct 

ent  value 

struct 

dap  create  list 

struct 

req  line  list 

struct 

create  ent  list 

struct 

overlap  node 

struct 

ent  value  list 

struct 

dml  statement 

struct 

loop  info 

}; 


*dki_temp_ptr; 

*dki  namel  ptr; 

*dki  id  ptr; 

*dki  overfirst  ptr; 
dki  der  non; 
dki  sub  non; 
dki  ent  non: 
dki  funct; 
*dki_ev_ptr; 

*  dki  create; 

*dki  req  ptr; 

*dki  cel  ptr; 
*dki_create  ovrptr; 
dki  evl_ptr; 

*dml  statement_ptr; 
*loop  info  ptr; 


Figure  5.3.  The  dap  kms  info  Data  Structure. 
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temporarily  holds  a  list  of  names  for  comparison  with  the  identifiers.  Whenever  a 
list  of  identifiers  is  read,  the  name  of  each  identifier  is  kept  in  the  linked  list 
pointed  to  by  dki  temp_ptr.  The  dki_temp_ptr  always  points  to  a  list  that 
contains  the  names  of  the  identifiers  in  the  current  list.  When  there  are  more 
than  one  list  of  identifiers  to  be  compared,  for  example  in  the  overlapping  rule 
declaration,  both  the  dki  namel_ptr  and  dki_temp_ptr  pointer  are  used.  For 
type  or  subtype  declarations,  both  the  dki  temp_ptr  and  the  dki_id_ptr  are  used. 
The  dki  id  ptr  points  to  a  linked  list  that  contains  the  names  of  all  type  and 
subtype  identifiers  declared  so  far.  Whenever  a  new  type  or  subtype  declaration  is 
parsed,  the  name  of  the  new  type  or  subtype  identifier  is  checked  against  this  list 
to  ensure  no  duplicate  declarations.  The  dki  overfirst  ptr  is  used  when  parsing 
an  overlapping  rule  declaration  to  keep  the  pointers  to  the  gen  sub  node  in  the 
first  list  of  the  declaration.  The  next  four  fields  are  used  to  store  information  for 
der  non  node,  sub  non  node,  ent  non  node  and  function  node  temporarily. 
The  dki  ev  ptr  holds  a  pointer  to  a  temporary  storage  of  entity  values.  The  last 
six  fields  hold  temporary  storage  or  pointers  to  data  structures  used  solely  by  the 
database  manipulation  portion  (see  Section  C). 

The  ident_list  data  structure,  depicted  in  Figure  5.4,  contains  only  two 
fields.  The  first  field  is  a  character  array  that  holds  the  identifier  name.  The 
second  field  points  to  the  next  ident_list  component.  This  data  structure  provides 
a  linked  list  to  maintain  identifier  names. 
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struct  ident_list 

{ 

char  name  [ENLength  +  l]; 
struct  ident  list  *next; 

}; 


Figure  5.4.  The  ident  list  Data  Structure. 


2.  The  Algorithm 

The  mapping  process  of  the  database  definitions  portion  in  KMS  is 
relatively  straightforward.  It  involves  the  parsing  of  the  database  schema  and  the 
transformation  of  the  corresponding  database  definitions  onto  the  data  structures 
described  in  Chapter  III.  The  detailed  implementation  of  the  mapping  using 
YACC  and  C  is  given  in  Appendix  C.  In  this  section,  we  provide  a  general 
description  of  the  algorithm.  The  schema  of  the  sample  database,  univ,  (see 
Figure  2.1  again)  represents  a  typical  database  declaration  in  Daplex.  It  includes 
the  type  and  subtype  declarations,  the  entity  and  non-entity  declarations,  the 
function  declarations,  the  overlapping  constraint  declarations,  and  the  uniqueness 
constraint  declarations.  We  test  our  implementation  of  the  DDL  portion  of  KMS 
by  parsing  this  database  schema. 

For  each  database  declaration,  the  database  name  is  checked  against  the 
current  list  of  databases  in  the  system  which  is  the  linked  list  pointed  to  by 
dn  fun  in  dbid  node  (see  Figure  3.1).  If  the  database  name  has  been  declared 
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before,  the  transaction  is  rejected.  Otherwise,  a  new  ent  dbid  node  is  allocated 
and  appended  to  the  current  list  of  databases. 

For  type  declarations  and  subtype  declarations,  similar  checks  are  made 
to  ensure  that  there  is  no  duplication  of  type  or  subtype  names.  These 
declarations  include  those  for  the  entity  type,  the  entity  subtype,  the  nonentity 
base-type,  the  nonentity  subtype  and  the  derived  nonentity  type.  KMS  recognizes 
the  difference  between  these  declarations  by  their  different  formats  and  creates 
corresponding  data  structures  to  store  the  information.  The  data  structures  are 
ent_node  (Figure  3.3),  gen_sub_node  (Figure  3.4).  ent_non_node  (Figure  3.5). 
sub  non  node  (Figure  3.6)  and  der_node_node  (Figure  3.7).  When  there  is  no 
error  detected,  an  appropriate  node  is  created  and  appended  to  the  corresponding 
linked  list  pointed  to  in  the  data  structure  ent_dbid_node.  The  corresponding 
counter  in  ent  dbid  node  is  also  updated. 

For  entity  type  or  subtype  declarations,  incomplete  specification  is 
allowed.  In  this  case,  a  skeleton  structure  of  the  ent  node  or  gen  sub  node  with 
only  the  name  field  filled  is  created.  When  the  complete  declarations  is  found 
later,  then  the  other  necessary  information  are  inserted  into  the  structure. 

For  function  declarations,  the  function  node  data  structure  (Figure  3.9) 
is  used.  Depending  on  the  function  type  declared,  the  appropriate  fields  in  the 
function  node  structure  are  updated.  When  more  than  one  function  are  declared, 
a  linked  list  of  function  node  is  created.  At  the  end  of  the  function  declarations, 
the  linked  list  that  has  been  created  is  then  added  to  the  ent  node  or 
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gen_sub_node  under  which  the  functions  are  declared.  If  the  function  type  is 
entity,  then  the  ent_node  or  gen  sub  node  of  this  entity  is  recalled  and  its 
indicator  in  the  data  structure,  en_terminal  or  gsn  terminal,  is  updated  to  reflect 
that  this  entity  is  not  a  terminal. 

For  overlapping  constraint  declarations,  two  identifier  lists  are  read  in. 

Error  checkings  are  performed  to  ensure  that  the  identifiers  in  the  lists  are 

terminal  generalized  subnode  types  and  they  all  have  the  same  base  type.  The 
overlapping  information  are  then  stored  in  the  data  structure  overlap  node 
(Figure  3.8)  and  appended  to  the  edn  ovrptr  of  the  ent  dbid  node. 

For  the  uniqueness  constraint  rule,  we  traverse  the  ent  node  and  the 

gen  sub  node  data  structures  to  search  for  the  entity-type  node  or  generalized 

subnode  that  matches  the  entity  identifier  declared.  Subsequently,  the 
function  node  data  structures  are  traversed  to  locate  the  function  nodes  and  the 
fn  unique  field  of  each  of  the  function  nodes  found  is  set  to  true. 

Three  identifiers  list  rules  are  used  in  the  implementation.  They  are 
new  id  list,  id  list  and  namel  list.  The  basic  intent  of  the  three  rules  are  the 
same  -  to  recognize  a  sequence  of  identifiers.  However,  three  different  rules  are 
used  because  different  actions  are  needed  in  various  situations.  The  new_id_list 
rule  detects  duplicate  declarations  of  name_id  against  dki_id_ptr  but  does  not 
issue  an  error  message.  Instead,  an  error  flag  is  turned  on  so  that  the  procedure 
immediately  following  the  rule  has  the  option  of  ignoring  duplication.  This  is 
necessary  because  incomplete  declarations  of  entity  types  are  allowed  in  Daplex. 
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The  id  list  rule  checks  against  dki_temp_ptr  and  displays  error  messages  if  there 
is  a  duplication.  The  namel  list  rule  checks  duplication  against  dki  namel  ptr 
and  issues  an  error  message  when  required. 

C.  MAPPING  THE  DATA  MANIPULATION  LANGUAGE 

In  this  section,  we  describe  the  data  structures  that  are  used  solely  in  the 
DML  portion  of  KMS.  This  is  followed  by  a  general  description  of  the  mapping 
algorithm. 

1.  The  Data  Structures 

The  database  manipulation  portion  of  KMS  uses  many  data  structures  for 
temporary  storage  of  information.  They  are  dap  create  list,  dap  av  pair  list, 
req  line  list,  create  ent  list,  dap  expr  info.  relation  list,  simple  exprl, 
simple_expr2,  simple_expr3,  simple_expr4,  funct_appln,  indexed_component, 
set  constructor,  set  construct2.  set_construct3,  dap  range  info,  basic  expr  list, 
comp  assoc  list,  domain  info,  loop  info,  order  comp  list,  dml  statement2  list, 
dml  statement.  These  data  structures,  depicted  in  Appendix  A,  are  directly 
derivable  from  the  grammar  rules.  For  example,  the  data  structure  domain  info 
is  derivable  from  the  domain  rule  in  the  grammar. 

Why  are  we  taking  this  approach?  When  we  first  started  on  the 
implementation  of  the  database  manipulation  portion  of  KMS,  we  tried  to 
translate  the  Daplex  transactions  directly  to  the  ABDL  transactions.  However, 
we  encountered  some  problems  and  could  not  proceed  in  this  approach  due  to  the 


78 


recursive  nature  of  the  Daplex  grammar  rules.  Another  approach  to  the  problem 
was  needed.  So.  we  built  the  data  structures  described  above  to  correspond  to  the 
database  manipulation  portion  of  the  grammar  rules.  During  the  parsing  process, 
information  on  the  transactions,  conforming  to  the  Daplex  grammar  rules,  are 
transferred  to  the  corresponding  data  structures.  At  the  end  of  the  parsing 
process,  separate  procedures  would  then  be  used  to  read  from  the  data  structures 
and  convert  them  into  ABDL  transaction  formats. 

2.  The  Algorithm 

When  the  user  wishes  LIL  to  process  Daplex  requests  against  an  existing 
database,  the  task  of  KMS  is  to  translate  the  user's  Daplex  request  to  equivalent 
ABDL  requests.  The  Daplex  request  must  also  be  specified  within  a  rigid  set  of 
grammar  rules  (see  Appendix  D). 

The  DML  statements  in  the  Daplex  grammar  are  represented  by  the 
dml  statement  rule.  This  rule  includes  statements  for  CREATE,  DESTROY, 
MOVE  and  FOR  EACH  transactions.  These  statements,  by  themselves,  can  be 
executed  as  a  valid  transaction  request.  The  second  rule,  dml_statement2,  handles 
those  transactions  that  can  be  executed  within  a  loop  (FOR  EACH)  statement. 
The  statements  that  can  only  be  included  within  a  loop  are  the  assignment- 
statement,  the  include-statement,  the  exclude-statement,  the  destroy-statement, 
the  move-statement  and  the  procedure-call  statement. 

As  mentioned  in  the  previous  section,  the  first  step  in  the  translation  of  a 
Daplex  transaction  to  the  ABDL  request(s)  is  to  instantiate  the  data  structures 
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corresponding  to  the  grammar  rules  parsed.  We  chose  the  names  of  the  data 
structures  as  close  as  possible  to  the  corresponding  grammar  rules.  For  example, 
dap  expr  info  for  the  dap  expr  rule  and  set  constructor  for  the  set  constructor 
rule. 

Rules  that  have  more  than  one  alternatives  are  handled  in  two  different 
ways,  depending  on  the  situation.  When  each  of  the  alternative  rules  has  a  single 
corresponding  data  structure,  then  the  new  data  structure  is  just  a  collection  of 
pointers  to  those  corresponding  data  structures.  An  example  of  this  is  the 
simple  exprl  data  structure  for  the  simple-expr  rule  (Figure  5.5).  At  any  one 
time,  only  one  field  in  the  simple  exprl  data  structure  is  active.  In  the  case  that 


<simple-expr>  ::  = 

<literal> 

|  <set-constructor> 

|  <indexed-component> 

|  <function-application> 


struct  simple  exprl 


char 

lit  array [LITLength+lj; 

struct 

set  constructor 

*set  construct  ptr; 

struct 

indexed  component 

*  indexed  comp  ptr; 

struct 

funct  appln 

*funct  appln  ptr; 

}; 


Figure  5.5.  The  Grammer  Rule  and  Data  Structure  for  <simple-expr>. 
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the  alternative  rules  do  not  correspond  to  single  data  structures,  new  data 
structures  are  created  for  the  alternative  statements.  For  example,  the  relation 
rule  has  four  alternative  statements.  The  corresponding  data  structure  is  the 
relation_list  shown  in  Figure  5.6.  Four  pointers  to  the  data  structures, 
simple_exprl.  simple_expr2.  simple_expr3  and  simple  expr4,  are  utilized  and 
correspond  to  the  four  alternative  statements. 


<relation>  ::= 

<simple-expr> 

<simple-expr>  <relational-operator>  <simple-expr> 
<simple-expr>  <in-op>  <dap-range> 

<simple-expr>  <  in-op >  <namel> 

struct  relation  list 
{ 


struct 

simple  exprl 

^simple  exprl 

ptr; 

struct 

simple  expr2 

^simple  expr2 

ptr; 

struct 

simple  expr3 

*simple  expr3  ptr; 

struct 

simple  expr4 

^simple  expr4 

ptr; 

struct 

relation  list 

*next; 

}; 


Figure  5.6.  The  <relation>  Rule  and  The  relation  list  Data  Structure. 


D.  FUTURE  WORKS 

As  we  reached  this  stage  in  the  implementation,  a  decision  was  made  to 
discontinue  the  implementation  effort  for  this  thesis  and  leave  the  remainder  for 
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future  efforts  due  to  a  time  limitation.  In  this  section,  we  outline  the  work  that 
needs  to  be  done  to  complete  the  implementation. 

1.  Completing  the  Kernel  Mapping  System 

The  DDL  portion  of  KMS  has  been  fully  implemented.  As  for  the  DML 
portion,  the  implementation  of  the  parser  that  translates  the  Daplex  database 
manipulation  request  to  the  corresponding  data  structures  has  been  completed. 
However,  the  procedures  for  mapping  the  data  structures  to  the  ABDL  request 
have  not  been  implemented. 

To  complete  the  implementation  of  KMS.  we  need  a  procedure  to  access 
the  dml  statement  ptr  field  of  the  dap  kms  info  data  structure  (see  Figure  5.3). 
The  dml  statement  ptr  points  to  the  data  structure  dml  statement,  as  shown  in 
Figure  5.7.  There  are  four  pointers  in  the  dml  statement  data  structure  which 
point  to  the  dap_expr_info,  the  indexed  component,  the  basic  expr  list  and  the 


struct  dml  statement 


int 

struct 

struct 

struct 

struct 

}; 


type; 

dap_expr_info  *dap_expr_ptr; 

indexed  component  ^indexed  comp  ptr; 
basic_expr_list  *basic  expr  ptr; 

comp  assoc  list  *comp  assoc  ptr; 


Figure  5.7.  The  dml  statement  Data  Structure. 
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comp_assoc_list  data  structures.  Four  additional  procedures,  one  for  each  of  the 
aforementioned  data  structures,  are  required  to  read  from  the  data  structures  and 
translate  the  information  in  the  data  structures  into  ABDL  request(s). 

2.  The  Kernel  Controller 

Once  KMS  has  performed  the  necessary  transformations  and  translations 
of  Daplex  requests  into  their  equivalent  ABDL  requests.  KC  controls  the 
submission  of  the  ABDL  requests  to  MBDS  for  processing.  After  ABDL  processed 
the  requests,  control  is  returned  to  LIL. 

Just  as  data  structures  are  specified  for  LIL  and  KMS.  we  also  require 
data  structures  that  are  specified  for  KC  to  recognize  the  different  types  of  ABDL 
requests.  We  need  a  KC  procedure  to  control  the  processing  of  each  of  the  ABDL 
request  (i.e.,  INSERT,  DELETE,  UPDATE,  and  RETRIEVE). 

3.  The  Kernel  Formatting  System 

KFS  is  the  fourth  module  in  the  language  interface,  and  is  called  by  the 
kernel  controller  when  it  is  necessary  to  display  results  to  the  user.  The  only  task 
that  KFS  performs  is  to  display  on  the  screen  the  result  returned  by  MBDS  in 
Daplex  format.  Therefore,  it  is  the  easiest  module  to  implement  in  the  language 
interface. 

Both  the  kernel  controller  and  the  kernel  formatting  system  have  not 
been  implemented  yet.  However,  in  our  implementation  of  LIL  and  KMS,  a  stub 
is  inserted  wherever  KC  or  KFS  is  to  be  called.  The  name  of  the  stubs  are 
f  kernel  controller  and  f  kernel  formatting  system,  respectively.  So,  the  next 
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implementor  may  proceed  to  implement  the  two  modules  using  the  same  names. 
After  the  two  modules  are  implemented,  all  we  need  to  do  for  integrating  the  four 
modules,  i.e.,  LIL,  KMS,  KC.  and  KFS,  is  to  replace  the  stubs. 
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VI.  THE  CONCLUSION 


In  this  thesis,  we  have  presented  a  partial  specification  and  implementation 
of  a  Daplex  language  interface  .  This  is  one  of  four  language  interfaces  that  the 
multi-lingual  database  system  supports.  When  complete,  the  multi-lingual 
database  system  will  be  able  to  execute  transactions  written  in  four  well-known 
and  important  data  languages,  namely,  SQL,  DL/I,  Daplex,  and  CODASYL.  The 
work  accomplished  in  this  thesis  is  part  of  the  ongoing  research  effort  being 
conducted  at  the  Laboratory  for  Database  Systems  Research,  located  at  the  Naval 
Postgraduate  School  in  Monterey,  California. 

The  need  to  provide  an  alternative  to  the  development  of  separate  stand¬ 
alone  database  systems  for  specific  data  model/data  language  constructions  has 
been  the  motivation  for  this  research.  In  this  regard,  we  have  first  demonstrated 
the  feasibility  of  a  multi-lingual  database  system  (MLDS)  by  showing  how  a 
software  Daplex  language  interface  can  be  constructed. 

A  major  goal  has  been  to  design  a  Daplex-to-ABDL  interface  without 
requiring  any  change  be  made  to  ABDL  or  the  underlying  database  system, 
MBDS.  Our  partial  implementation  may  be  completely  resident  on  a  host 
computer  or  the  controller.  All  of  the  Daplex  transactions  are  executed  and 
processed  in  the  Daplex  interface.  MBDS  continues  to  receive  and  process 
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transactions  written  in  the  unaltered  syntax  of  ABDL.  In  addition,  our 


implementation  has  not  required  any  change  to  the  syntax  of  Daplex.  The 
interface  is  completely  transparent  to  the  Daplex  user  as  well  as  to  the  MBDS 
user. 

In  retrospect,  our  level-by-level,  top-down  approach  to  the  design  of  the 
interface  has  been  a  good  choice.  This  implementation  methodology  has  been  the 
most  familiar  to  us  and  proved  to  be  relatively  efficient  in  time.  In  addition,  this 
approach  permits  follow-on  programmers  to  easily  maintain  and  modify  the  code. 

In  this  thesis,  we  have  fully  implemented  the  LIL  module  and  partially 
implemented  the  KMS  module.  A  minor  part  of  the  KMS  module  and  the  KC 
and  KFS  modules  are  left  for  another  programmer  to  follow  up.  It  is  a  great 
disappointment  that  we  have  not  been  able  to  complete  the  implementation.  The 
primary  reason  for  our  failure  has  been  the  complexity  of  the  functional  model 
and  the  Daplex  language.  The  total  amount  of  codes  required  for  the 
implementation  far  exceed  those  required  for  the  other  interface  implementations. 
In  terms  of  lines  of  code,  we  have  implemented  the  same  number  of  lines  as  in  the 
entire  language  interface  of  the  CODASYL  implementation.  We  have  also 
outlined  how  the  remaining  implementation  should  proceed. 

We  have  shown  that  a  Daplex  interface  can  be  implemented  as  part  of 
MLDS.  We  have  provided  a  partial  software  structure  to  facilitate  this  interface, 
and  we  have  developed  actual  code  for  implementation.  The  next  step  is  to 
complete  the  development  of  the  Daplex  interface.  When  complete,  this  interface 
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can  be  integrated  with  the  other  implementations  and  tested  as  a  whole  to 
determine  how  efficient,  effective,  and  responsive  it  can  be  to  a  users’  needs.  The 
results  may  be  the  impetus  for  a  new  direction  in  database  system  research  and 
development. 
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APPENDIX  A 


THE  DAPLEX  DATA  STRUCTURES 


union  dbid  node 

{ 

struct  rel  dbid  node 

struct  hie_dbid_node 

struct  net_dbid  node 

struct  fun_dbid  node 

} 


*dn  rel; 
*dn_hie; 
*dn  net; 
*dn  fun; 


struct  fun  dbid  node 


c  structure  def  for  each  entity-relationship  dbid  node  */ 

char 

fdn  name'DBNLength  4-  1  ; 

struct 

ent  non  node 

*fdn 

nonentptr; 

int 

fdn  num  nonent; 

*  number  of  nonentity  types  * 

struct 

ent  node 

‘fdn 

entptr; 

int 

fdn  num  ent; 

*  number  of  entity  types  * 

struct 

gen  sub  node 

‘fdn 

subptr: 

int 

fdn  num  gen; 

/*  number  of  gen  subtypes  */ 

struct 

sub  non  node 

‘fdn 

nonsubptr; 

int 

fdn  num  nonsu 

b; 

/*  number  of  nonentity  subtypes  */ 

struct 

der  non  node 

‘fdn 

nonderptr; 

int 

fdn  num  der; 

/*  number  or  nonentity  derived  types 

struct 

overlap  node 

*fdn 

ovrptr; 

int 

fdn  num  ovr; 

/*  number  of  overlap  nodes  */ 

struct 

fun  dbid  node 

*fdn 

next  db; 

}; 


struct  ent  node 

/*  structure  definition  for  each  entity  node  */ 


char 

en 

name  ENLength 

+  i); 

int 

en 

last  ent  id; 

/*  keeps  track  of  the  unique  id  assigned 

to  each  entity  type  in  the  database  */ 

int 

en 

num  funct; 

/*  number  of  assoc,  functions  */ 

int 

en 

terminal: 

/*  if  true  (=1)  it  is  a  terminal  type  */ 

struct 

function  node  *en 

ftnptr; 

struct 

ent 

node  *en 

next  ent; 

}; 


struct  gen_sub_node 

/*  structure  def  for  each  generalization  (supertype/subtype)  node  */ 
{ 


char  gsn_name|ENLength  +  l] ; 

int  gsn  num  funct;  /*  number  of  assoc,  functions*/ 

int  gsn_terminal;  /*  if  true  (  =  1)  it  is  a  terminal  type  */ 

struct  ent_node_list  *gsn_entptr;  /*  ptr  to  entity  supertype  */ 

int  gsn  num  ent;  /*  number  of  entity  supertypes  */ 
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struct 

function  node 

struct 

sub  node  list 

int 

gsn  num  sub: 

struct 

gen  sub  node 

}: 


xgsn_ftnptr; 

xgsn_subptr;  /*  ptr  to  subtype  supertype  x; 

/*  number  of  subtype  supertvpes 
x  gsn_next_genptr: 


struct  ent  non_node 

/*  structure  def  for  each  base-tvpe  nonentity  node  * 

{ 

char  enn  name  EXLength  —  1  : 

char  enn  type; 


int 

int 


int 

struct 

int 

struct 


enn_total_length; 
enn  range; 


enn  num  values: 
ent  value 
enn  constant: 
ent  non  node  xenn  next  node: 


either  i(nteger),  s(tring). 
f(loat),  e(numeration).  or  b(oolean) 
/x  max  length  of  base-type  value  x/ 

/x  true  or  false  depending 
on  whether  there  is  a 
range.  If  range  exists, 
there  must  be  two  entries 
into  ent_value  x  / 

/x  number  of  actual  values 
enn_value:  /“  actual  value  of  base-type 

/x  boolean  to  refelect  constant  value  x 


struct  sub_non_node 

/*  structure  def  for  each  subtvpe  nonentitv  node  x 

{ 

char  snn_name  EXLength  —  1  ; 

char  snn  type; 


int 

int 


int 

struct 

struct 


}; 


snn_total_length; 
snn  range: 


snn  num  values; 
ent  value 
sub  non  node 


either  i(nteger),  s(tring), 
f(loat),  e(numeration) .  or  b(oolean) 
max  length  of  subtype  value  */ 
x  true  or  false  depending 
on  whether  there  is  a 
range.  If  range  exists, 
there  must  be  two  entries 
into  ent  value  */ 

/*  number  of  actual  values  x/ 
snn  value;  /x  actual  value  of  subtype  x/ 
snn  next  node: 


nonentity  node  */ 


struct  der  non_node 

/*  structure  def  for  each  derived  type 


char 

dnn  name  ENXength 

char 

dnn  type; 

int 

dnn  total  length; 

int 

dnn  range; 

- 1]; 

/*  either  i(nteger),  s(tring). 

f(loat),  e(numeration),  or  b(oolean)  */ 
/x  max  length  of  derived  type  value  */ 

/x  true  or  false  depending  on  whether 
there  is  a  range.  If  range  exists, 
there  must  be  two  entries  in  the 
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ent_value  */ 

int  dnn  num  values;  /*  number  of  actual  values  */ 

struct  ent  value  *dnn_value;  /*  actual  value  of  derived  type  */ 

struct  der_non_node  *dnn_next_node; 

}; 


struct  overlap_node 

/*  structure  def  for  overlapping  constraint  */ 

{ 


char 

struct 

int 

struct 


}; 


base  type  name(ENLength-i~l]; 
sub  node  list  *snlptr; 

num  sub  node;  /*  number  of  sub  node  in  the  above  list 
overlap  node  *next; 


struct  function  node 


/*  structure  definition  for  each  function  type  declaration  */ 
{ 


char 

fn  namefENLen 

gth+lj; 

char 

fn  type: 

/*  either  f(loat),  i(nteger),  s(tring). 
b(oolean),  or  e(numeration)  */ 

int 

fn  range: 

/*  Boolean  if  range  of  values  */ 

int 

fn  set; 

/*  Boolean  if  set  of  values  */ 

int 

fn  total  length; 

/*  max  length  */ 

int 

fn  num  value; 

/*  number  of  actual  values  */ 

struct 

ent  value 

*fn  value;  /*  actual  value  */' 

struct 

ent  node 

*fn  entptr;  /*  ptr  to  entity  type  */ 

struct 

gen  sub  node 

*fn  subptr;  /*  ptr  to  entity  subtype  */ 

struct 

ent  non  node 

*fn  nonentptr;  /*  ptr  to  nonentity  type  */ 

struct 

sub  non  node 

*fn  nonsubptr;  /*  ptr  to  nonentity  subtype  */ 

struct 

der  non  node 

*fn  nonderptr;  /*  ptr  to  nonentity  dertype  */ 

int 

fn  entnull; 

/*  initialized  false  set  true  for  no  value 

int 

fn  unique; 

/*  init  false  -  unique  if  true  */ 

struct 

function  node 

*next; 

}; 


struct  sub_node_list  /*  list  of  ponters  */ 

/*  structure  definition  for  terminal  subtypes  that  define  one  or  more 
subtypes  */ 

{ 

struct  gen  sub  node  *subptr;  /*  only  terminal  subtypes  */ 

struct  subnodelist  *next; 

}; 


struct  ent_node_list  /*  list  of  pointers  */ 

/*  structure  definition  for  subtypes  with  one  or  more  entity  supertypes  */ 

{ 

struct  ent_node  *entptr; 

struct  ent  node  list  *next; 

}; 
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struct  ent  value 

/*  struct  def  for  value  of  ’i’/s’/f/e’,  or  ’b’  */ 

{ 

char  *ev_value;  /*  pointer  to  character  string  only  */ 

struct  ent  value  *next; 

}; 

struct  ident_list 

{ 

char  name  ENLength  -f  1  ; 

struct  ident_list  *next; 

}; 


struct 

{ 


ent  value  list 


char 

int 

struct 


}; 


type; 

num  values; 
ent  value 


ev  ptr: 


struct 

{ 


dap  kms  info 


struct 

ident  list 

*dki  temp  ptr; 

struct 

ident  list 

*dki  namel  ptr; 

struct 

ident  list 

xdki  id  ptr; 

struct 

sub  node  list 

*dki  overfirst  ptr; 

struct 

der  non  node 

dki  der  non; 

struct 

sub  non  node 

dki  sub  non; 

struct 

ent  non  node 

dki  ent  non; 

struct 

function  node 

dki  funct; 

struct 

ent  value 

*dki  ev  ptr; 

struct 

dap  create  list 

*dki  create; 

struct 

req  line  list 

*dki  req  ptr; 

struct 

create  ent  list 

*dki  cel  ptr; 

struct 

overlap  node 

*dki  create  ovrptr; 

struct 

ent  value  list 

dki  evl  ptr; 

struct 

dml  statement 

*dml  statement  ptr 

struct 

loop  info 

*loop  info  ptr: 

}; 


struct  dap  create_list 

{ 

int 
char 
struct 
struct 

}; 


req  type;  /*  Insert  or  Retrieve  */ 

en  namefENLength  +  I ] ; 
dap  av_pair_list  *av_pair_ptr; 

dap  create  list  *next; 


struct 

{ 


dap  av  pair  list 


91 


char 

name  ENLength  — 

struct 

function  node 

int 

num  value; 

struct 

ent  value 

struct 

dap  av  pair  list 

}; 

struct  req_line_list 

{ 

char  req_linefREQLength]; 

struct  req_line  list 

}; 

struct  create  ent  list 

{ 

struct  ent_node  list 

struct  sub  node  list 

struct  create  ent  list 

}; 

struct  dap 

{ 

int 

struct 

}; 

struct  relation_list 
{ 


struct 

simple  exprl 

struct 

simple  expr2 

struct 

simple  expr3 

struct 

simple  expr4 

struct 

relation  list 

}; 


ftnptr; 

valptr; 

next; 


next; 


enlptr; 
snl  ptr; 
next; 


Relation,  AndRelation  or  OrRelation 
*rel  list  ptr; 


*simple_exprl_ptr; 
*simple_expr2_ptr; 
^simple  expr3  ptr; 
*simple_expr4_ptr; 
*next; 


exprinfo 

reiation_type: 
relation  list 


struct  simple_exprl 


char 

lit  array [LITLength-^l] 

struct 

set  constructor 

*set  construct  ptr; 

struct 

indexed  component 

^indexed  comp  ptr; 

struct 

funct  appln 

*funct  appln  ptr; 

}; 


struct  funct  appln 

{ 

int  type;  /*  COUNT,  SUM,  AVG,  MIN,  MAX  */ 

/*  The  followings  are  structures  for  expr  types  in  the  grammar  */ 

char  name_id[ENLength  +  l]; 

struct  set  constructor  *set  construct_ptr; 

struct  indexed_component  *indexed_comp_j>tr; 

}; 
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struct  indexed  component 

{ 

char  name_id  ENLength  +  lj; 

char  type;  /*  Entity.  GenSub,  LoopParameter,  Function  */ 

char  parent_name;ENLength  -I-  lj; 

struct  indexedcomponent  *next; 

}; 


struct  set  constructor 


{ 

struct 

struct 

struct 

}; 


basic  expr  list 
set  construct2 
set  constructs 


*basic_expr_ptr; 
*set_construct2_ptr; 
*set  constructs  ptr; 


struct  set_construct2 

{ 

struct  simple_exprl  *simple_exprl_ptr; 

char  namelENLength  lj; 

struct  dap  expr  info  dap  expr  ptr; 

}; 

struct  daprangeinfo 
{ 


int 

range  type;  /*  Integer  or  Float  */ 

char 

first  valuejFLTLength  —  lj; 

char 

}; 

second  value  FLTLength  -f  lj; 

struct  set 

{ 

struct 

constructs 

simple  exprl  ^simple  exprl 

struct 

dap  range  info  dap  range; 

struct 

dap  expr  info  dap  expr  ptr; 

}; 


struct  basic_expr_list 

{ 

char  litarrayjLITLength  +  lj', 

struct  indexed  component 

struct  functappln 

struct  basic_expr_list 


*indexed_comp_ptr; 
*funct  appln  ptr; 
*next; 


}; 


struct  comp 

{ 

char 

struct 

struct 

}; 


assoc_list 

namejENLength  -+■  lj; 
simpleexprl 
comp  assoc  list 


simple_expr; 

*next; 
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struct  simple_expr2 

{ 

struct  simpleexprl 

int  rel_operator; 

struct  simple  exprl 

}; 


*first_expr; 
^second  expr; 


struct  simpleexprS 

{ 

struct  simple  exprl  ^simple  expr; 

int  in_op;  /*  INOp  or  NINOp  */ 

struct  dap_range_info  *dap_range; 

}; 


struct  simple  expr4 

{ 

struct  simple  exprl  ^simple  expr; 

int  in  op:  /*  INOp  or  NINOp  */ 

char  name_id  ENLength  4-  lj; 

}; 


struct  domaininfo 
{ 

/*  only  one  of  the  first  two  fields  is  active  at  one  time  */ 


/*  see 

loop  expr  in  grammar  */ 

struct 

indexed  component 

^indexed  comp  ptr; 

char 

name[ENLength  -h  lj; 

struct 

dap  expr  info 

*dap  expr  ptr;  /*  optional  field  */ 

}; 


struct  loop  info 
{ 

char  loop_parameter[ENLength  4-  lj; 


struct 

ent  node 

struct 

gen  sub  node 

struct 

domain  info 

struct 

order  comp  list 

struct 

}: 

dml  statement2  list 

struct  order 
; 

comp  list 

i 

int 

sort  order; 

struct 

indexed  component 

struct 

}; 

order  comp  list  *next 

struct  dml 
/ 

statement2  list 

X 

struct 

dml  statement 

struct 

dml  statement2  list 

*entptr; 

*subptr; 

domain; 

*order  comp  ptr; 

*dml  statement2  list  ptr; 


/*  ASCENDING  or  DESCENDING  */ 
*indexed_comp_ptr; 


*dml_statement2_ptr; 

*next; 
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}; 


struct  dml  statement 


int 

type;  /* 

Assignment,  Include,  Exclude, 
Destroy,  Move,  Procedure,  Create  */ 

struct 

dap  expr  info 

Map  expr  ptr; 

struct 

indexed  component 

^indexed  comp  ptr; 

struct 

basic  expr  list 

*  basic  expr  ptr; 

struct 

comp  assoc  list 

*comp  assoc  ptr: 

}; 
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APPENDIX  B 


THE  LIL  MODULE 


1.  FILE  :  lil.c 


#  include  <stdio.h> 

^include  "licommdata.def ' 

^include  "struct. def" 

^include  "flags. def" 

^include  "dap. ext" 

#  include  "lil.dcl" 

f_language_interface_layer() 

/*  This  proc  allows  the  user  to  interface  with  the  system.  */ 
/*  Input  and  output:  user  DAPLEX  requests  */ 


{ 

int  num; 

int  stop;  /*  boolean  flag  * 


#ifdef  EnExFlag 

printf  ("Enter  f_language_interface_layer\nM); 

#endif 

dap_init(); 

/*  initialize  several  ptrs  to  different  parts  of  the  user  structure  */ 

/*  for  ease  of  access  */ 

dap  info  ptr  =  &(cuser  dap_ptr->ui  li  type.li  dap); 
tran_info_ptr  =  &(dap_info_ptr->dpi_dml_tran); 
first_req_ptr  =  &(tran_info_ptr->ti_first_req); 
curr  req_ptr  =  &(tran  info  ptr->ti  curr  req); 

/*  the  followings  are  inserted  for  testing  build _ddl_files  only  */ 

/* 

dap_info_ptr->dpi_curr_db.cdi_db.dn_fun  =  dbs  dap  head  ptr.dn  fun; 
f  build  _ddl_files  ( ) ; 

7 

/*  end  test  code  */ 

stop  =  FALSE; 
while  (stop  ==  FALSE) 

{ 

/*  allow  user  choice  of  several  processing  operations  */ 
printf  (n\nEnter  type  of  operation  desired\n"); 
printf  ("\t(l)  -  load  new  database\nn); 
printf  ("\t(p)  -  process  existing  database\nM); 
printf  (M\t(x)  -  return  to  the  operating  system\nM); 
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dap_info_ptr-> dap  answer  =  get  ansj&num); 

switch  (dap_info_ptr->dap_answer) 

{ 

case  ’1’:  /*  user  desires  to  load  a  new  database  */ 
f  load  new(); 
break; 

case  ’p’:  /*  user  desires  to  process  an  existing  database  */ 
f_process_old(); 
break; 

case  Jx’:  /*  user  desires  to  exit  to  the  operating  system  */ 

/*  database  list  must  be  saved  back  to  a  file  */ 

stop  =  TRUE; 

break: 

default:  /*  user  did  not  select  a  valid  choice  from  the  menu  */ 
printf  (n\nError  -  invalid  operation  selected\n"); 
printf  (!,Please  pick  again\n"); 
break: 

}  /*  end  switch  */ 

/*  return  to  main  menu  */ 

}  /*  end  while  *  / 

#ifdef  EnExFlag 

printf  ("Exit  f_language_interface_layer\nM); 

#endif 

}  /*  end  f_language_interface_layer  */ 

dap_init() 

{ 

#ifdef  EnExFlag 

printf  ("Enter  dap_init\n"); 

^endif 

#ifdef  EnExFlag 

printf  ("Exit  dap_init\n"); 

#endif 

}  /*  end  dap_init  * / 


f_load^new() 

/*  This  proc  accomplishes  the  following:  */ 

/*  (1)  determines  if  the  new  database  name  already  exists,  */ 

/*  (2)  adds  a  new  header  node  to  the  list  of  schemas,  */ 

/*  (3)  determines  the  user  input  mode  (file/terminal),  */ 


/*  (4)  reads  the  user  input  and  forwards  it  to  the  parser,  and  */ 
/*  (5)  calls  the  routine  that  builds  the  template/descriptor  files  */ 
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{ 


int  num; 

int  more  input;  /*  boolean  flag  */ 
int  proceed;  /*  boolean  flag  */ 

struct  fun  dbid  node  *db  list  ptr,  /*  ptr  to  the  current  db  */ 

*new  ptr,  /*  ptr  to  a  new  db  structure  */ 

*fun_dbid  node_alloc();  /*  ptr  to  allocated  db  */ 


#ifdef  EnExFlag 

printf  ("Enter  f_load  new\n"); 

#endif 

/*  prompt  user  for  name  of  new  database  */ 

printf  (" j7;7m\nEnter  name  of  database  —  —  >[0;0m  "); 

readstr  (stdin.  dap  info  ptr->dpi  curr  db.cdi  dbname); 

to  caps  (dap  info  ptr->dpi_curr  db.cdi_dbname) ; 

db  list  ptr  =  dbs  dap  head  ptr.dn  fun; 

while  (db_list_ptr  !=  NULL) 

{ 

/*  determine  if  new  database  name  already  exists  */ 

/*  by  traversing  list  of  entity-relation  db  schemas  */ 
if  ((strcmpfdb  list  ptr->fdn  name. 

dap_info_ptr->dpi_curr_db.cdi_dbname))==  0) 

{ 

printf  (n\nError  -  db  name  already  exists\n"); 
printf  (M[7;7mPlease  reenter  db  name  — — >[0:0m  "); 
readstr  (stdin,  dap  info  ptr->dpi  curr  db.cdi  dbname); 

to  caps  (dap  info  ptr->dpi  curr  db.cdi  dbname); 
db_list_ptr  —  dbs_dap_head_ptr.dn_fun; 

}  /*  end  if*/ 
else 

db_list_ptr  —  db_list_ptr->fdn_next_db; 

}  /*  end  while  */ 

/*  continue  -  user  input  a  valid  5new’  database  name  */ 

/*  add  new  header  node  to  the  list  of  schemas  and  fill-in  db  name  */ 

/*  append  new  header  node  to  db_list  &  init  relevent  user  stucture  ptrs  */ 

new  ptr  =  fun  dbid  node  alloc(); 

strcpy  (new_ptr->fdn_name,  dap_info_ptr->dpi_curr_db.cdi_dbname); 
new  ptr->fdn_next  db  =  dbs_dap_head_ptr.dn_fun; 
dbs  dap  head  ptr.dn  fun  =  new  ptr; 
dap_info_ptr->dpi_curr_db.cdi_db.dn_fun  =  new_ptr; 
dap  info  ptr->dpi_curr  db.cdi_attr.an_dattr  ptr  =  NULL; 

/*  check  for  user’s  mode  of  input  */ 

more_input  =  TRUE; 

while  (more_input  ==  TRUE) 

{ 

/*  determine  user’s  mode  of  input  */ 
printf  (,T\nEnter  mode  of  input  desired\n,!); 
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printf  (M\t(f)  -  read  in  database  description  from  a  file\n"): 
printf  (n\t(x)  -  return  to  the  to  main  menu\n"); 
dap_info_ptr->dap_answer  =  get_ans(&num); 

switch  (dap  info  ptr->dap  answer) 

{ 

case  T:  /*  user  input  is  from  a  file  */ 
f_read_transaction  file ( ) ; 

if  (dap_info  ptr->dap  error  !=  ErrReadFile) 

{ 

/*  file  contains  transactions  */ 

/*  dbd  stands  for  database  description  * 
f_dbd_to_KMS(); 
f_free_requests  ( ) ; 

if  (dap  info  ptr->dap  error  !=  ErrCreateDB) 

{  " 

/*  no  syntax  errors  in  creates  */ 
f  build  _ddl_files ( ) ; 

f_Kernel_Controller(); 

}  ,/*  end  if  * 

}  /3K  end  if  * 

break: 

case  *x‘:  exit  back  to  LIL  */ 

more  input  =  FALSE: 
break; 

default:  /*  user  did  not  select  a  valid  choice  from  the  menu  */ 
printf  (M\nError  •  invalid  input  mode  selected\nM); 
printf  ("Please  pick  again\n"); 
break; 

}  /*  end  switch  * / 

if  (dap  info  ptr->dap  error  ==  ErrCreateDB) 

/*  errors  in  creates  so  exit  this  loop  */ 
more  input  =  FALSE; 
dap  info  ptr->dap  error  =  NOErr; 

}  /*  end  while  */ 


#ifdef  EnExFlag 

printf  ("Exit  f_load_new\n"); 

#endif 

}  /*  end  Moad_new  */ 
f  process  old() 

/*  This  proc  accomplishes  the  following:  */ 

/*  (l)  determines  if  the  database  name  already  exists,  */ 
/*  (2)  determines  the  user  input  mode  (file/terminal),  */ 
/*  (3)  reads  the  user  input  and  forwards  it  to  the  parser  */ 


{ 
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int  found,  more_input;  /*  boolean  flags  */ 

int  num; 

struct  fun  dbid  node  *db  list  ptr;  /*  ptr  to  the  current  database  */ 


#ifdef  EnExFlag 

printf  (ffEnter  f  process  old\nn); 

#endif 

/*  prompt  user  for  name  of  existing  database  */ 

printf  (f,f7;7m \nEnter  name  of  database - >!0;0m  ?f); 

readstr  (stdin,  dap_info_ptr->dpi_curr_db.cdi_dbname); 
to  caps  (dap  info  ptr->dpi  curr  db.cdi  dbname); 
db  list  ptr  =  dbs  dap  head  ptr.dn  fun; 

found  =  FALSE; 
while  (found  — —  FALSE) 

{ 

/*  determine  if  database  name  does  exist 

/*  by  traversing  list  of  entity-relation  schemas  * 

if  (strcmp(dap  info  ptr->dpi_curr_db.cdi_dbname.db  _list_ptr->fdn_name)  =  =  0) 

{ 

found  =  TRUE: 

dap  info  ptr->dpi  curr  db.cdi  db.dn  fun  =  db _ list  ptr: 

}" 

else 

{ 

db  list  ptr  =  db  list  ptr->fdn  next  db; 

/*  error  condition  causes  end  of  list(’NULL’)  to  be  reached  */ 
if  (db  Jist  ptr  ==  NULL) 

{ 

printf  (n\nError  -  db  name  does  not  exist\n!l); 

printf  (M|7;7mPlease  reenter  valid  db  name  — ->[0;0m  ,?); 

readstr  (stdin,  dap  info  ptr->dpi  curr  db.cdi  dbname); 

to_caps  (dap_info_ptr->dpi_curr  db.cdi  dbname); 
db  list  ptr  =  dbs  dap  head  ptr.dn  fun; 

}  /*~endlf  V 

}  /*  end  else  */ 

}  /*  end  while  */ 

/*  continue  -  user  input  a  valid  existing  database  name  */ 

/*  determine  user’s  mode  of  input  */ 

more_input  =  TRUE; 

while  (more  input  ==  TRUE) 

{ 

printf  (!,\n\nEnter  mode  of  input  desired\nn); 

printf  (!!\t(f)  -  read  in  a  group  of  DAPLEX  requests  from  a  file\n,f); 
printf  (f!\t(t)  -  read  in  DAPLEX  requests  from  the  terminal\n,f); 
printf  (ff\t(x)  -  return  to  the  previous  menu\n,f); 
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dap  info  ptr->dap  answer  =  get  ans(tnum); 

switch  (dap  info  ptr->dap  answer) 

{ 

case  T:  /*  user  input  is  from  a  file  * / 
f  read  transaction  file(); 
dapreqs_to_KMS(); 
f_free_requests() ; 
break; 

case  V:  /*  user  input  is  from  the  terminal  */ 
f_read  _termin  al  ( ) ; 
dapreqs  to  KMS(): 
f_free_requests  () ; 
break; 

case  7x’:  /*  user  wishes  to  return  to  LIL  menu  * / 
more_input  =  FALSE; 
break: 

default:  /*  user  did  not  select  a  valid  choice  from  the  menu  *, 
printf  ("\nError  -  invalid  input  mode  selected\nM); 
printf  ('’Please  pick  again\n"); 
break; 

}  /*  end  switch  */ 

}  /*  end  while  */ 

#ifdef  EnExFlag 

printf  ("Exit  f_process_old\n"); 

#endif 

}  /*  end  f_process_old  */ 


2.  FILE  :  lilcommon.c 


#include  <stdio.h> 

#include  <ctype.h> 

^include  <strings.h> 

^include  "licommdata.def" 

^include  "struct. def" 

^include  "flags. def" 

^include  "dap. ext" 

#include  "lil.ext" 

f_dbd_to_KMS() 

/*  This  routine  sends  the  request  list  of  database  descriptions  one  */ 

/*  by  one  to  the  KERNAL  MAPPING  SYSTEM  and  frees  the  list  as  it  goes  */ 


{ 

#ifdef  EnExFlag 
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printf  ("Enter  f_dbd_to_KMS\n"); 

#e  ndif 

dap_info_ptr->dap_operation  =  CreateDB; 

/*  set  the  current  ptr  to  the  first  ptr  */ 

curr  req  ptr->ri  dap  req  =  first  req  ptr->ri  dap  req; 

/*  now  send  each  request  to  KMS  */ 
while  (curr  req  ptr->ri  dap  req  !=  NULL) 

{  -  -  •  - 
f_kernel_mapping  system  (); 

if  (cuser_dap_ptr->ui_li_type.li_dap.dap_error  ==  ErrCreateDB) 
break; 

curr  req  ptr->ri  dap  req  =  curr  req  ptr->ri  dap  req->dri  next  req; 
}  /*  end  while  * / 

/*  reset  the  number  of  requests  */ 
tran_info_ptr->ti_no_req  =  0; 

#ifdef  EnExFlag 

printf  ("Exit  f_dbd_to_KMS\nn); 

#endif 

}  /*  end  f _dbd_to_KMS  */ 
dapreqs  to  KMS() 

/*  This  routine  causes  the  queries  to  be  listed  on  the  screen.  */ 

/*  The  selection  menu  is  then  displayed  allowing  any  of  the  */ 

/*  queries  to  be  executed.  */ 


{ 

int  proceed;  /*  boolean  flag  */ 

int  quit;  /*  boolean  flag  */ 

int  num; 

#ifdef  EnExFlag 

printf  ("Enter  dapreqs_to_KMS\n"); 

#endif 

num  =  0; 
list_dapreqs(); 
proceed  =  TRUE; 
while  (proceed  ==  TRUE) 

{ 

printf  (n\nPick  the  number  or  letter  of  the  action  desired\n"); 
printf  (!,\t(num)  -  execute  one  of  the  preceding  DAPLEX  requests\nM); 
printf  ("\t(d)  -  redisplay  the  file  of  DAPLEX  requests\n"); 

printf  ("\t(x)  -  return  to  the  previous  menu\n"); 

dap_info_ptr->dap_answer  =  get  ans(&num); 
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switch  (dap_info_ptr->dap  answer) 

{ 

case  ’n’  :  /*  execute  one  of  the  requests  */ 

if  (num  >  0  &&  num  <=  tran_info_ptr->ti_no_req) 

{ 

find_dapreq  (num); 

/*  This  is  the  default  value  for  di  operation  */ 

/*  If  not  a  retrieve  request,  this  value  is  reset  */ 

/*  in  kernel_mapping  system  */ 
dap_info_ptr->dap_operation  =  ExecRetReq; 

quit  =  FALSE; 
while  (quit  ==  FALSE) 

{ 

f_kernel_mapping  system(); 
if  (dap_info_ptr->dap_error  ==  NOErr) 
curr_req  ptr->ri  dap  req  = 

curr_req_ptr->ri_dap_req->dri_sub_req; 

else 

quit  =  TRUE; 

if  (curr_req_ptr->ri_dap_req  ==  NULL) 
quit  =  TRUE; 

} 

if  (dap_info_ptr->dap_error  ==  NOErr) 
f_Kernel_Controller(); 

}  /*  end  if  */ 

else 

{ 

printf  (“\nError  -  the  DAPLEX  request  for  the  number  you  M) 
printf  (“selected  does  not  exist\n,r); 
printf  (“Please  pick  again\n“); 

}  /*  end  else  */ 


break; 

case ’d’  :  /*  redisplay  requests  */ 
list  dapreqsQ; 
break; 

case  5x’  :  /*  exit  to  mode  menu  * / 
proceed  =  FALSE; 

tran  info  ptr->ti  no  req  =  0; 
break; 

default  :  /*  user  did  not  select  a  valid  choice  from  the  menu  */ 
printf  ("\nError  -  invalid  option  selected\n“); 
printf  (“Please  pick  again\n“); 
break; 

}  /*  end  switch  */ 

}  /*  end  while  */ 

#ifdef  EnExFlag 
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printf  ("Exit  dapreqs_to_KMS\n"); 

#endif 

}  /*  end  dapreqs_to_KMS  */ 
list_dapreqs() 

/*  This  routine  actually  prints  the  query  list  to  the  screen  */ 


struct  dap_req_info 
struct  temp_str_info 
int  i; 
int  first_line; 

FILE  *qry  fid; 


*sub_req  ptr;  /*  ptr  to  a  subrequest  */ 
*req_ptr;  /*  ptr  to  a  line  of  a  query  */ 
/*  the  number  of  the  query  */ 

/*  boolean  flag  */ 

/*  file  id  for  query  print  file  */ 


#ifdef  EnExFlag 

printf  ("Enter  list  dapreqs\n"); 

#endif 

i  =  1; 

qry_fid  =  fopen(QRYFName,  "w"); 

curr_req_ptr->ri_dap_req  =  first_req_ptr->ri_dap_req; 

/*  loop  and  print  the  queries  until  there  are  no  more  */ 
while  (curr_req_ptr->ri_dap_req  !=  NULL) 

{ 

first  line  =  TRUE; 

fprintf  (qry_fid,"\n"); 

sub  req  ptr  =  curr  req  ptr->ri  dap  req; 

/*  loop  and  print  the  subqueries  until  there  are  no  more  */ 
while  (sub_req  ptr  !=  NULL) 

{ 

req_ptr  =  sub  req  ptr->dri_in_req; 
while  (req_ptr  !=  NULL) 

{ 

if  (first_line  ==  TRUE) 

{  " 

/*  first  line  of  a  query  so  print  the  number  of  it  first  */ 
fprintf  (qry_fid,  "\t%d\t  %s\n",  i,  req_ptr->tsi_str); 
first^line  =  FALSE; 

}  /*  end  if  V 

else 

fprintf  (qry_fid,  "\t\t  %s\n",  req_ptr->tsi_str); 
req_ptr  =  req_ptr->tsi_next; 

}  /*  end  while  */ 

sub  req  ptr  =  sub  req  ptr->dri  sub  req; 

}  /*  end  while  */ 
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curr_req_ptr->ri_dap_req  =  curr_req_ptr->ri_dap_req->dri_next  req; 
}  /*  end  while  */ 

fclose(  qry_fid  );  /*  close  the  query  file  */ 

moredapreqs(  QRYFName  );  /*  print  out  the  queries  */ 

#ifdef  EnExFlag 

printf  ("Exit  list_dapreqs\n"); 

#endif 


}  /*  end  list  dapreqs  */ 

/*  specified  query  to  be  executed  */ 
/*  counter  * / 


find  dapreq(num) 
int  num; 

{ 

int  i: 


/*  This  function  walks  down  the  DAPLEX  request  list  to  the  (num)th  */ 
/*  query  and  leaves  the  current  ptr  pointing  to  that  request  */ 


#ifdef  EnExFlag 

printf  ("Enter  find _dapreq\n"); 
#endif 


/*  set  the  current  ptr  to  the  first  ptr  */ 

curr  req  ptr->ri  dap  req  =  first  req  ptr->ri  dap  req; 

for  (i  =  1;  i  <  num;  in — h) 

curr  req  ptr->ri  dap  req  =  curr  req  ptr->ri  dap_req->dri  next_req; 

#ifdef  EnExFlag 

printf  ("Exit  find_dapreq\n"); 

#endif 

}  /*  end  find_dapreq  */ 
fJreej-equestsQ 

r 


struct  dap_req_info  *sub_req_ptr; 

/*  This  function  frees  all  memory  reserved  by  the  transaction  list  */ 
#ifdef  EnExFlag 

printf  ("Enter  f_free_requests\n"); 

#endif 

/*  set  the  current  ptr  to  the  first  ptr  */ 

curr  req  ptr->ri  dap  req  =  first_req_ptr->ri_dap_req; 
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while  (curr_req_ptr->ri_dap_req  !=  NULL) 

{ 

while  (curr  req  ptr->ri  dap  req->dri  sub  req  !=  NULL) 

{ 

sub  req  ptr  =  curr  req  ptr->ri  dap  req->dri  sub  req; 
curr_req_ptr->ri_dap_req->dri_sub_req  =  sub_req_ptr->dri_sub_req 
free  (sub_req_ptr); 

}  /*  end  while  */ 

curr  req  ptr->ri  dap  req  =  curr  req  ptr->ri  dap_req->dri  next  req; 
free  (first  req  ptr->ri  dap  req); 

first  _req_ptr->ri_dap_req  =  curr_req_ptr->ri_dap_req; 

}  /*  end  while  */ 

#ifdef  EnExFlag 

printf  (MExit  f  free_requests\n”); 

#endif 

}  /*  end  f_free_requests  */ 

static  moredapreqs(fname) 
char  *fname; 

{ 

int  c.  counter; 
char  ch(3] ; 
int  i,j; 
int  no  lines; 

FILE  *fid; 


fid  =  fopen(fname,,,rM); 

no_lines  =  21; 

c  =  fgetc(fid); 
while(c  !=  EOF) 

{ 

counter  =  0; 

while  ((counter  <=  no_lines)  &&  (c  !=  EOF)) 

{ 

printf(,,%cM,c); 
if  (c  ==  >5) 

-h+counter; 
c  =  fgetc(fid); 

} 

if  (counter  >=  no_lines) 

{ 

printf("\n[7;7m--  more  — [0;0mM); 

for(i  =  0;  (  (i  <=  2)  &&  ((ch[i]  =  getchar())!=’\n’)  );  i++) 
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if((i==l)  kk  (ch[0]  ==  >q’)) 
return; 

else  if  (i  ==  1) 

{ 

ch[l]  =  ’\0’; 

no_lines  =  str_to_num(ch)  -  1; 

} 

else 

if  (i==2) 

{ 

ch [2]  -  *\0’; 

no_lines  =  str_to_num(ch)  -  1; 

} 

else 

nolines  =  21; 

printf("\n"); 

}  /*  end  if*/ 

}  /*  end  while  eof  */ 

fclose(  fid  ); 

}  /*  end  more  */ 

3.  FILE  :  newuser.c 


/*  This  proc  allocates  and  initializes  a  node  and  structure  of  the  user  list  */ 


^include  <stdio.h> 

^include  "licommdata.def 
^include  "struct. def 
#include  "flags. def 
#include  "dap. ext" 

struct  user_info  *new_dap_user() 

{ 

struct  user_info  *new_user_alloc(),  /*  ptr  to  new  allocated  user  struct  */ 
*user  ptr,  /*  ptr  to  user  struct  */ 

*new  user  ptr;  /*  ptr  to  new  allocated  user  struct  */ 
struct  dap_info  *dap_info_ptr;  /*  temp  ptr  to  dap_info  struct  */ 
struct  curr  db  info  *curr  db  info  ptr;  /*  temp  ptr  to  curr  db_info  struct  */ 
struct  file_info  *file_info_ptr;  /*  temp  ptr  to  file_info  struct  */ 
struct  tran  info  *tran_info_ptr;  /*  temp  ptr  to  tran_info  struct  */ 
struct  kc  ent_info  *kc_ptr;  /*  temp  ptr  to  kc_dap_info  struct  */ 

struct  kfs_ent_info  *kfs_ptr;  /*  temp  ptr  to  kfs_dap_info  struct  */ 

char  *var_str_alloc(); 

#ifdef  EnExFlag 

printf  ("Enter  new_dap_user\n"); 

#endif 
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/*  allocate  a  new  user  structure  */ 
new  user  ptr  =  new_user_alloc(); 

/*  set  user  ptr  to  the  head  of  the  user  list  */ 
user  ptr  =  user  dap  head  ptr; 
if  (user_ptr  ==  NULL) 

{ 

/*  user  list  is  empty  */ 

user  dap  head  ptr  =  new  user_ptr; 

user  ptr  =  new  user  ptr; 

} 

else 

{ 

/*  walk  down  user  list  to  the  end  and  append  new  user  structure  */ 
while  (user  ptr->ui  next  user  !=  NULL) 
user  ptr  =  user_ptr->ui_next_user; 
user_ptr->ui_next_user  =  new_user_ptr; 
user  ptr  —  new  user  ptr; 

} 


/*  initialize  complete  new  user  structure  * 

get_new_user  (user_ptr->ui_uid); 

dap  info  ptr  =  &(user  ptr->ui_li_type.li  dap); 

dap  info  ptr->dap  operation  =  0; 

dap  info_ptr->dap_answer  =  0; 

dap  info_ptr->dap_error  =  NOErr; 

dap_info_ptr->dpi_ddl_files  =  NULL; 

dap_info_ptr->dap_buff_count  =  0; 

curr  db  info  ptr  =  &(dap  info  ptr->dpi  curr  db); 

strcpy  (curr _db_info_ptr->cdi_dbname,  DUMMYDBname); 

curr  db_info_ptr->cdi_db.dn_fun  =  NULL; 

curr_db_info_ptr->cdi_attr.an_nattr_ptr  =  NULL;  /*  ?????  */ 

file_info_ptr  =  &(dap_info_ptr->dpi_file); 

strcpy  (file_info_ptr->fi_fname,  DUMMYFname); 

file_info_ptr->fi_fid  =  NULL; 

tran_info_ptr  =  &:(dap_info_ptr->dpi_dml_tran); 
dap_info  ptr->dpi_kms_data.ki_n_kms  =  NULL; 
kfs  ptr  =  &(dap  info  ptr->dpi  kfs  data.kfsi  ent); 

/*  kri  response  is  now  allocated  here  rather  than  in  procedure  */ 
/*  dap  chk  responses  left  in  kc.c  */ 

kfs_ptr->khi_response  =  var_str_alloc(1024); 
kfs_ptr->khi_curr_pos  =  0; 
kfs_ptr->khi_res_len  =  0; 

kc  ptr  =  &(dap_info_ptr->dpi_kc_data.kci_e_kc); 
kc  ptr->temp  =  0; 


#ifdef  EnExFlag 

printf  ("Exit  new_dap_user\n,!); 
#endif 
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return  (new  user  ptr); 

}  /*  end  new _dap_user  */ 

4.  FILE  :  readrtnes.c 

^include  <stdio.h> 

^include  <ctype.h> 

^include  "flags. def" 

^include  "licommdata.def" 

^include  "struct. def" 

^include  <strings.h> 

^include  "dap. ext" 

^include  "lil.ext" 

f_read  _transact  ion_file  ( ) 

{ 

int  open_flag;  /*  boolean  flag  */ 
int  i;  /*  counter  * j 

/*  This  routine  opens  a  DAPLEX  dbd/request  file  and  reads  the  */ 

/*  dbds/ requests  into  the  request  list.  */ 

#ifdef  EnExFlag 

printf  ("Enter  f  read  transaction  file\nM); 

#endif 

open_flag  =  FALSE; 

printf  ("[7;7m\nWhat  is  the  name  of  the  DBD/REQUEST  file  — >[0;0m  "); 

/*  open  the  file  */ 

while  (open_flag  ==  FALSE) 

{ 

readstr  (stdin,  dap_info_ptr->dpi_file.fi_fname); 
printf  ("\n\n"); 

if  ((dap_info_ptr->dpi_file.fi_fid  = 

fopen  (dap  info  ptr->dpi_file.fi_fname,  Mr"))  ==  NULL) 

{ 

printf  ("\nUnable  to  open  file  %s\n",dap_info_ptr->dpi_file.fi_fname); 
ring  the  bell(); 

printf  ("Please  reenter  valid  filename\n"); 
printf  ("[7;7m"); 

printf  ("\nWhat  is  the  name  of  the  DBD/REQUEST  file  — >[0;0m  "); 

}  /*  end  if  V 

else 

open_flag  =  TRUE; 


}  /*  end  while  */ 

/*  now  read  in  the  transactions  */ 


109 


f  read  file(); 

#ifdef  EnExFlag 

printf  ("Exit  f _read_transaction_file\n"); 

#endif 

}  /*  end  f_read  transaction  file  */ 

f_read_file() 

{ 

struct  temp  str  info  *new  t  ptr,  /*  ptrs  to  linked  list  of  80  col  input  */ 
*curr_t_ptr, 

*head_t_ptr, 

*f_rd_temp_str_info(); 

struct  dap_req_info  *new_req_ptr,  /*  ptrs  to  request  list  */ 

*curr  req  ptr, 

*sub  req  ptr. 

*dap_req_info_alloc(); 

int  i, 

first_subreq,  /*  boolean  flag  */ 
first  req.  /*  boolean  flag  */ 
first_line,  f*  boolean  flag  */ 
length_so_far,  /*  length  of  a  single  transaction  */ 

EOF_flag,  /*  boolean  flag  */ 

EOR  flag,  /*  boolean  flag  * / 

EOS_flag;  /*  boolean  flag  */ 

char  *var_str  alloc (); 

/*  This  routine  reads  a  file  of  transactions  into  * / 

/*  the  user’s  request  list  structure.  */ 

#ifdef  EnExFlag 

printf  ("Enter  f_read_file\n"); 

#endif 

first_req  =  TRUE; 

EOF_flag  =  FALSE; 

/*  create  the  request  list  from  the  inner  loop’s  line  list  */ 
while  (EOF  flag  ==  FALSE) 

{ 

EOSflag  =  FALSE; 

EORflag  =  FALSE; 
length  so  far  =  0; 
firstline  =  TRUE; 
first_subreq  =  TRUE; 

/*  create  a  line  list  for  each  request  read.  */ 

/*  each  node  represents  a  line  of  the  request  */ 
while  (EOR  flag  ==  FALSE) 

{ 


no 


/*  allocate  a  line  *  / 

new_t_ptr  =  f  j-d_temp_str_info  (&EOS_flag,  &EOR_flag,  &EOF_flag); 
if  (new_t_ptr  !=  NULL) 

{ 

length_so_far  =  length  _so_far  -f  strlen  (new  t_ptr->tsi  str); 
if  (first_Jine  ==  TRUE) 

{  " 

/*  line  is  the  first  on  the  list  so  set  appropriate  ptrs  */ 
head_t_j)tr  =  new  t  ptr; 
curr_t_ptr  =  new_t_ptr; 
first_line  =  FALSE; 

}  /*  end  if  */ 

else 

{ 

/*  link  line  to  the  rest  of  the  line  list  */ 
curr  t  ptr->tsi  next  =  new  t  ptr; 
curr  t  ptr  =  new  t  ptr; 

}  /*  end  else  */ 

}  /*  end  if  * 
else 

/*  check  for  no  input  situation  */ 

if  (EOS  flag  ==  FALSE  &&  first  Jine  ==  TRUE  &&  EOF  flag  ==  TRUE) 

{ 

dap  info  ptr->dap  error  =  ErrReadFile; 

printf  ("WARNING  -  number  of  requests  read  =  0!\n\nM); 

} 

else 

{ 

/*  allocate  a  request  structure  * / 
new  req  ptr  =  dap_req_info_alloc(); 

/*  store  head  t  ptr  as  the  input  request  */ 

new  req  ptr->dri_in_req  =  head_t_ptr; 

newr  req  ptr->dri  req  =  var  str  alloc  (length _so_far  +1); 

new_req_ptr->dri_reqfOj  =  5\0’; 

curr_t_ptr  =  head_t_ptr; 

/*  concatenate  line  list  to  form  a  request  node  * / 
while  (curr  t  ptr  !=  NULL) 

{ 

strcat  (new  req  ptr->dri  req,  curr  t_jptr->tsi_str); 
curr  t  ptr  =  curr  t  ptr->tsi_next; 

}  /*  end  while  * / 

/*  capitalize  the  request  */ 
to  caps  (new  req  ptr->dri_req); 
new_req_ptr->dri_req__len  =  length  jso_far; 

new  req  ptr->dri  sub  req  =  NULL; 
new  req  ptr->dri  next_req  =  NULL; 
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if  (EOS  flag  ==  TRUE) 

{ 

if  (first  subreq  ==  TRUE) 

{ 

sub_req  ptr  =  new_req_ptr; 
curr  req  ptr  =  new  req_ptr; 
first_subreq  =  FALSE; 

}  /*  end  if  V 
else 
{ 

curr  req  ptr->dri  sub  req  =  new  req_ptr: 
curr  req  ptr  =  new  req_ptr; 

}  /*  end  else  */ 

length  so  far  =  0; 
first_line  =  TRUE; 

}  /*  end  if  */ 

}  /*  end  else  */ 


}  /*  end  while  EOR_flag  =  FALSE  */ 


if  (first _req  ==  TRUE) 

{ 

if  (EOS_flag  ==  TRUE) 

{ 

/*  request  is  the  first  on  the  sublist  so  set  appropriate  ptrs  */ 
tran_info_ptr->ti_first_req.ri_dap_req  =  sub_req_ptr; 
tran_info_ptr->ti_curr_req.ri_dap_req  =  sub_req_ptr; 

}  /*  end  if  */ 
else 
{ 

/*  request  is  the  first  on  the  list  so  set  appropriate  ptrs  */ 
tran  info  ptr->ti  first  req.ri  dap  req  =  new  req  ptr; 
tran_info  _ptr->ti_curr_req.ri_dap_req  =  new_req_ptr; 

}  /*  end  else  */ 

-f-ftran  info  ptr- > ti  no  req; 
first  _req  =  FALSE; 

}  /*  end  if  first _req  =  TRUE  */ 
else 

{ 

if  (EOS_flag  ==  TRUE) 

{ 

tran  info_ptr->ti  curr  req.ri_dap_req->dri  next  req  =  sub_req_ptr; 
tran_info_ptr->ti_curr_^req.ri^dap_req  =  sub_req_ptr; 

}  /*  end  if  V 
else 

{ 

tran_info_ptr->ti_curr_req.ri_dap_req->dri_next_req  =  new_req_ptr 
tran  info  ptr- > t i  curr  req.ri  dap  req  =  new  req  ptr; 
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}  /*  end  else  * / 

-f-r tran_info_ptr->ti  no  req; 

}  /*  end  else  first_req  =  FALSE  */ 

}  r  end  while  EOF_flag  =  FALSE  */ 

#ifdef  EnExFlag 

printf  ("Exit  f_read_file\nM); 

#endif 

}  /*  end  f_read_file  */ 
f_read_terminal() 

r 


/*  This  function  prompts  the  user  to  input  DAPLEX  requests  */ 

/*  from  their  terminal  */ 

#ifdef  EnExFlag 

printf  ("Enter  f_read_terminal\n"); 

#endif 

/*  set  input  device  to  be  the  terminal  * 
dap_info_ptr->dpi_file.fi  fid  =■  stdin: 

printf  ("\nPlease  enter  your  transactions  one  at  a  time.\n"); 
printf  ("You  may  have  multiple  lines  per  transaction. \n"); 
printf  ("Each  transaction  must  be  separated  by  a  line  that\n"); 
printf  ("\tonly  contains  the  character  5@\\n"); 

printf  ("If  you  have  multiple  requests  per  transactions,  seperate\n"); 
printf  ("\tthem  by  the  character  ’!\\n"); 

printf  ("After  the  last  transaction,  the  last  line  must  consist  only\n"); 

printf  ("\tof  the  ’S’  character  to  signal  end-of-file.\n\n\nM); 

printf  ("  7;7m  Input  the  transactions  on  the  following  lines  :  0;0m\n\n"); 

/*  now  read  in  the  transactions  */ 
f_read_file(); 

#ifdef  EnExFlag 

printf  ("Exit  f_read_terminal\n"); 

^endif 

}  /*  end  f_read_terminal  *  j 

static  struct  temp  str  info  *f_rd_temp_str_info(EOS_flag,  EOR_flag,  EOF_flag) 
int  *EOS_flag,  /*  boolean  flags  */ 

*EOR_flag, 

*EOF_flag; 


{ 


struct  temp_str_info  *temp_str_info_alloc(), 

*temp  ptr;  /*  ptrs  to  new  temp  str  info  structs  * / 
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int 


/*  counter  *  / 


i; 

/*  This  routine  fills  an  allocated  line  list  node  */ 

/*  and  sends  back  a  pointer  to  the  node.  */ 

#ifdef  EnExFlag 

printf  (’’Enter  f_rd_temp_str_info\n”); 

#endif 

/*  set  a  ptr  to  the  allocated  line  * / 
temp  ptr  =  temp  str  info  alloc ( ) ; 

/*  now  read  in  a  line  of  input  */ 

readstr  (dap_info_ptr->dpi_file.fi_fid,  temp_ptr->tsi_str); 
for  (i  =  0;  temp_ptr->tsi_strji;  !=  ’\0’;  i+-r) 

> 

temp_ptr->tsi_str[i^-T|  =  ’ 
temp_ptr->tsi_strji  =  ’\0’; 
temp  ptr->tsi  next  =  NULL: 

/*  check  for  end-of-subrequest  (’!’)  * 
if  (temp  ptr->tsi  str'O  ==  EOSubrequest) 

{ 

*EOS_flag  =  TRUE: 

#ifdef  EnExFlag 

printf  (’’Exitl  f_rd_temp_str_info\n”): 

#endif 

return  (NULL); 

}  /*  end  if  */ 

else 

/*  check  for  end-of-request  (’©’)  */ 
if  (temp_ptr->tsi_str[0]  ==  EORequest) 

{ 

‘EORflag  =  TRUE; 

#ifdef  EnExFlag 

printf  (”Exit2  f_rd_temp_str^info\n”); 

#endif 

return  (NULL); 

}  /*  end  if  */ 
else 

/*  check  for  end-of-file  (’$’)  * / 
if  (temp_ptr->tsi_str[0!  ==  EOFile) 

{ 

*EOR  flag  =  TRUE; 

*EOF_flag  =  TRUE; 
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#ifdef  EnExFlag 

printf  ("Exit3  f_rd_temp_str  info\n"); 
£endif 


return  (NULL); 

}  /*  end  else  if  */ 
else 

#ifdef  EnExFlag 

printf  ("Exit4  f_rd_temp  str  info\nM); 
#endif 

return  (temp  ptr); 

}  /*  end  f_rd_temp_str  info  */ 


5.  FILE  :  buildddl.c 


^include  <stdio.h> 
^include  "licommdata.deF’ 
#include  "struct. deF1 
^include  "flags. deF' 
^include  "lil.ext" 


f_build_ddl_files() 

/*  This  routine  is  used  to  create  the  MBDS  template  and  descriptor  files  */ 

{ 

struct  ddMnfo  *ddl  info_alloc(); 

#ifdef  EnExFlag 

printf( "Enter  f_build_ddl_file\n"); 

#endif 

if  (dap  info_ptr  ->  dpi_ddl_files  ==  NULL) 

dap  info  ptr  ->  dpi  ddl  files  =  ddl_info_alloc(); 

f_build_template_file(); 
f  _bu  ild  _d  esc _ file() ; 

#ifdef  EnExFlag 

printf  ("Exit  f_build_ddl_file\n"); 

#endif 

/*  f_build_desc_file();*/ 

} 
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f_build_template_file() 

{ 

/*  This  routine  builds  the  MBDS  template  file  for  a  new  daplex  */ 

/*  database  that  was  just  created.  */ 

struct  fun_dbid_node  *db_ptr; 

struct  ent_node  *ent_ptr; 

struct  gen  sub  node  *gen_ptr; 

struct  function_node  *funct_ptr; 

struct  file_info  *f_ptr; 

char  temp_str[NUMDIGIT  +  l); 

char  get_fun_type(); 

#ifdef  EnExFlag 

printf(MEnter  f_build_template_file\n”); 

#endif 

/*  Begin  by  setting  the  pointers  to  the  dap  info  data  structure  */ 

/*  that  is  maintained  for  each  user  of  the  system.  */ 

db  ptr  =  dap_info_ptr->dpi_curr_db.cdi_db.dn_fun; 
f  ptr  =  &(dap  info  ptr->dpi  ddl  files- >ddli  temp); 

/*  Next,  copy  the  filename  where  the  MBDS  template  information  will  */' 
/*  be  stored.  This  filename  is  constant  and  was  obtained  from  */ 

/*  licommdata.def.  */ 

strcpy(f  ptr->fi  fname,  FTEMPFname); 

/*  Next,  open  the  template  File  to  be  created:  */ 

if  ((f_ptr->fi_fid  =  fopen(f_ptr->fi_fname,l!wM))  ==  NULL) 

"{ 

printf(MUnable  to  open  %s\nn,  FTEMPFname); 
ring_the_bell(); 

#ifdef  EnExFlag 

prin  tf  ( "  Exit  1  f  _build  _tem  plate_file\n 11 ) ; 

#endif 

return; 

}; 


/*  Next,  write  out  the  database  name  &  number  of  files  :  */ 

fprintf(f_ptr->fi_fid,  l!%s\n",  db_ptr->fdn_name); 

num_to_str(db_ptr->fdn_num_ent  +  db_ptr->fdn^num_gen,  temp^str); 
fprintf(f_ptr->fi_fid,  n%s\nn,  temp_str); 

/*  Next,  set  the  pointer  to  the  first  entity:  */ 

ent_ptr  =  db_ptr->fdn_entptr; 

/*  While  there  are  more  entities  to  process,  write  out  the  number  */ 

/*  of  functions  (  +  2  for  the  attribute  nFILE,!  and  the  key  value  attribute)  */ 
/*  and  the  entity  name:  */ 

while  (ent_ptr  !=  NULL) 
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{ 

num_to_str((ent_ptr->en  num  funct  +  2),  temp  str); 
fprintf(f_ptr->fi_fid,  "%s\n",  tempstr); 
fprintf(f_ptr->fi  Jid,  ^cs^n",  ent_ptr->en_name); 

/*  Print  out  the  onstant  attribute  "FILE  s"  and  key  value  attribute  */ 
fprintf(f_ptr->fi_t]d.  "FILE  s\n"); 

fprintf(f_ptr->fi_fid,  "%s  i\n",  to_caps(ent_ptr->en_name)); 

'*  Now,  set  the  pointer  to  the  first  function:  */ 

funct_ptr  =  ent  ptr->en  ftnptr: 
wr_all_funct_attr(f_ptr->fi  fid,  funct_ptr); 

/*  set  the  pointer  to  the  next  entity:  */ 

entptr  =  ent_ptr->en_next_ent; 

}  /*  end  while  ent_ptr  */ 

/*  Next,  set  the  pointer  to  the  first  gen  sub  node  : 
gen_ptr  =  db_ptr->fdn_subptr: 

/  *  While  there  are  more  sub  nodes  to  process,  write  out  the  number 
/*  of  functions  (  —  2  for  the  attribute  "FILE"  and  the  key  value  attribute)  * 
/*  and  the  entity  name:  *  / 

while  (gen_ptr  !=  NULL) 

{ 

num_to_str((gen_ptr->gsn_num_funct  -f  2),  temp_str); 
fprintf(f_ptr->fi_fid.  "%s\n",  temp  str); 
fprintf(f_ptr->fi_fid,  "%s\n",  gen_ptr->gsn_name); 

/*  Print  out  the  constant  attribute  "FILE  s"  and  key  value  attribute  * / 
fprintf(f_ptr->fi_fid.  "FILE  s\n"); 

fprintf(f_ptr->fi_fid,  "%s  i\n",  to_caps(gen_ptr->gsn_name)); 

/*  Now,  set  the  pointer  to  the  first  function:  */ 

funct_ptr  =  gen_ptr->gsn_ftnptr; 
wr_all_funct_attr(f_ptr->fi_fid,  funct_ptr); 

/*  set  the  pointer  to  the  next  gen  sub  node:  */ 

gen_ptr  =  gen_ptr->gsn_next_genptr; 

}  /*  end  while  gen_ptr  */ 

/*  Finally,  close  out  the  file  and  exit  this  routine:  */ 

fclose(f_ptr->fi_fid); 

# ifdef  EnExFlag 

prin tf( "Exit2  f_build_template_file\n ") ; 

#e  ndif 

} 
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wr_all_funct_attr(fid,  functptr) 

FILE  *fid; 

struct  functionnode  *funct_ptr; 

{ 

#ifdef  EnExFlag 

printf( "Enter  wr_all_funct_attr\nM); 

#endif 

/*  While  there  are  more  attributes  to  process,  */ 

/*  print  out  attr.  name  &  type:  */ 

while  (funct_ptr  !=  NULL) 

{ 

fprintf(fid,  "%s  %c\nT\  funct_ptr->fn_name,  get_fun_type(funct_ptr)); 

/*  Set  the  pointer  to  the  next  function:  */ 

funct  ptr  =  funct  ptr->next; 

}  /*  end  while  funct  ptr  */ 

#ifdef  EnExFlag 

printf(T,Exit  wr  all  funct  attr\n,T); 

#endif 

} 

char  get_fun_type(fptr) 

struct  function_node  *fptr; 

{  /*  begin  get_fun_type  * / 
char  funjtype; 


#ifdef  EnExFlag 

printf(T!Enter  get_fun_type\nM); 

#endif 


switch  (fptr->fn_type) 

{ 

case  V  :  ; 

case  T  :  ; 

case  ’s’  :  fun_type  =  fptr->fn_type; 
break; 

case  ’b’  :  fun_type  =  ’i’; 
break; 

case  ’e’  :  if  (fptr  ->  fn_entptr  !=  NULL  || 
fptr  ->  fn  subptr  !=  NULL) 
fun_type  =  ’i’; 

else  if  (fptr  ->  fn_nonentptr  !=  NULL) 

fun_type  =  fptr  ->  fn_nonentptr  ->  enn_type; 
else  if  (fptr  ->  fn_nonsubptr  !=  NULL) 

fun  type  =  fptr  ->  fn  nonsubptr  ->  snn  type; 
else  if  (fptr  ->  fn_nonderptr  !=  NULL) 

fun  type  —  fptr  ->  fn_nonderptr  ->  dnn_type; 
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if  (fun_type  =  =  V)  /*  still  not  i  or  f  type  */ 

fun_type  =  V; 
break; 

}  /*  end  switch  */ 

#ifdef  EnExFlag 

printf("Exit  get_fun_type\n"); 

#endif 

return(fun  type); 

}  /*  end  get_fun  type  */ 

6.  FILE  :  builddesc.c 


^include  <stdio.h> 
#include  "licommdata.deP’ 
^include  "struct. deP’ 
^include  "flags. deP’ 
^include  "liLext" 

#include  "dap. ext" 
^include  <strings.h> 
^include  <ctype.h> 


f_build_desc_file() 


{ 

/*  This  routine  builds  the  Descriptor  File  to  be  used  by  the  MBDS  in  the  */ 
/*  creation  of  indexing  clusters:  */ 


struct  fun_dbid_node  *db_ptr;  /*  database  pointer  */ 

struct  entjnode  *ent_ptr;  /*  entity  node  ptr  */ 

struct  gen  sub  node  *gen  ptr;  /*  gen  sub  node  ptr  */ 

struct  descriptor  node  *desc  head  ptr,  /*  pointers  to  Desc  node..*/ 

*ask_all_fun  jnodesQ; 

struct  fileinfo  *f_ptr;  /*  File  pointer  */ 

int  index, 

str  len; 


#ifdef  EnExFlag 

printf( "Enter  f_build_desc_file\n"); 

#endif 


/*  Begin  by  setting  the  pointers  to  the  dap_info  data  structure  that  is  */ 

/*  maintained  for  each  user  of  the  system:  */ 

db_ptr  =  dap_info_ptr->dpi_curr_db.cdi_db.dn_fun; 
f_ptr  =  &(dap_info_ptr->dpi_ddl_files->ddli_desc); 

/*  Next,  copy  the  filename  where  the  MBDS  Descriptor  File  information  */ 
/*  will  be  stored.  This  filename  is  Constant,  and  was  obtained  from  */ 

/*  licommdata.def:  */ 
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strcpy(f  ptr->fi  fname,  FDESCFname); 

/*  Now,  open  the  Descriptor  File  to  be  created:  */ 

f  ptr->fi  fid  =  fopen(f  ptr->6  fname,  MwM); 

/*  The  next  step  is  to  traverse  the  Linked  List  of  entities  in  the  data-  */ 

/*  base.  There  are  two  reasons  for  doing  so:  First,  to  write  the  */ 

/*  entity  Names  to  the  Descriptor  File  as  EQUALITY  Descriptors;  this  is  */ 
/*  done  automatically  with  any  Daplex  Database,  is  a  necessary  element  */ 
/*  of  any  Descriptor  File  created  from  such  a  Database,  and  requires  */ 

/*  no  user  involvement.  Second,  it  allows  us  to  present  the  Entity  */ 

/*  Names  (without  their  respective  Attributes)  to  the  User,  as  a  memory  */ 

/*  Jog:  7 

system("clear"); 

fprintf(f_ptr->fi_fid,  "%s\n",  db_ptr->fdn_name); 
fprintf(f _ptr->fi_fid,  "template  C  s\n"); 
printf("\nThe  following  are  the  Entities  in  the  "); 
printf("%s  Database:\n\n",  db_ptr->fdn  name); 

ent_ptr  =  db_ptr->fdn_entptr; 

/*  Traverse  all  entity  nodes  * / 

while  (ent  ptr  !=  NULL) 

{ 

fprintf(f _ptr->fi  fid,  "!  %c",  ent_ptr->en_name[0  ); 
str_kn  =  strlen(  ent_ptr->en_name  ); 
for(index  =  1;  index  <  str  len:  index4-+) 
if  (isupper(ent_ptr->en_name[index])) 

fprintf(f_ptr->fi  fid,  "%c",  tolower(  ent^ptr->en  name[index]  )); 

else 

fprintf(f_ptr->fi_fid,  "%c",  ent_ptr->en_^name[index]); 
fprintf(f_ptr->fi_fid,  "\n"): 
printf("\n\t%s",  ent_ptr->en^name); 
ent_ptr  =  ent_ptr->en_next_ent; 

}  /*  End  "while  (ent~ptr  !=  NULL)"  */ 

genptr  =  db_ptr->fdn_subptr; 

/*  Traverse  all  gen  sub  nodes  */ 

while  (gen_ptr  !=  NULL) 

{ 

fprintf(f_ptr->fi_fid.  "!  %c",  gen_ptr->gsn_name[0]  ); 
str_len  =  strlen(  gen^ptr->gsn^name  ); 
for(index  =  1;  index  <  str  len;  index-b-b) 
if  (isupper(gen_ptr->gsn_name[index])) 

fprintf(f_ptr->fi_fid,  "%c",  tolower(  gen  ptr->gsn  namejindex]  )); 

else 

fprintf(f_ptr->fi_fid,  "%c",  gen_ptr->gsn_name[indexj); 
fprintf(f_ptr->fi_fid,  "\n"); 
printf("\n\t%s",  gen_ptr->gsn_name); 
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gen_ptr  =  gen_ptr->gsn_next  genptr; 

}  /“  End  M while  (gen_ptr  !=~ NULL)"  */ 

/*  Each  Descriptor  Block  must  be  followed  by  the  sign 
fprintf(f_ptr->fi_fid,  ,!@\nn); 

/x  Now.  inform  the  user  of  the  procedure  that  must  be  followed  to  create  */ 

/x  the  Descriptor  File:  x/ 

printf(" \n\nBeginning  with  the  first  Entity,  we  will  present  each”); 
printf("\ nfunction  of  the  entity.  You  will  be  prompted  as  to  whether1'): 
printf(f,\nyou  wish  to  include  that  function  as  an  Indexing  Attribute. "); 
printf(M  nand,  if  so.  whether  it  is  to  be  indexed  based  on  strict"); 
printfi^nEQUALITY.  or  based  on  a  RANGE  OF  VALUES."): 
printf("  n  nStrike  RETURN  when  ready  to  continue."); 
dap  info_ptr->dap  answer  =  get  ans(&:index): 

/x  Initialize  the  pointer  to  a  Linked  List  that  will  hold  the  results 
/x  of  the  Descriptor  Values,  then  return  to  the  first  entity  of  the 
f'  database  and  begin  cycling  through  the  individual  attributes: 
desc_head_ptr  =  NULL: 

ent_ptr  =  db_ptr->fdn_entptr: 
while  (ent_ptr  !=  NULL) 

{ 

desc  head  ptr  = 

ask_all_fun_nodes(desc_head_ptr.  ent_ptr->en__name.  ent_ptr->en_ftnptr): 

ent  ptr  =  ent  ptr->en  next  ent; 

}  /*  End  while  x/ 

gen_ptr  =  db_ptr->fdn_subptr; 
while  (gen_ptr  !=  NULL) 

{ 

desc_head_ptr  — 

ask  all_fun_nodes(desc_head_ptr}  gen_ptr->gsn_name,  gen_ptr->gsn_ftnptr) 
gen_ptr  =  gen_ptr->gsn_next_genptr; 

}  /*  End  while  x/ 

/x  Now.  we  will  traverse  the  Linked  List  of  Descriptor  Attributes  and  */ 

/x  Values  which  was  created,  writing  them  to  our  Descriptor  File:  * / 

wr  all  desc  values (f_ptr->fi_fid,  desc_head_ptr); 
fclose(f_ptr->fi_fid); 

#ifdef  EnExFlag 

printf("Exit  f_build_desc_file\n"); 

^tendif 

} 


struct  descriptor  node  *ask_all_fun_nodes(desc_head_ptr,  enjame,  funct  ptr) 
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struct  descriptor  node  *desc  head  ptr; 
char  en_name[ENLength  +  l]; 
struct  function  node  *funct  ptr; 

{ 

struct  descriptor  node  *desc  node  ptr, 

*descriptor_node_alloc();  /*  Allocates  Nodes  */ 
struct  value_node  *valuenode_ptr;  /*  points  to  Value  Node  */ 
int  num,  /*  */ 

found,  /*  Boolean  flag  */ 

goodanswer;  /*  Boolean  flag  */ 


#ifdef  EnExFlag 

printf("Enter  ask  all  fun  nodes\n"); 

#endif 

while  (funct_ptr  !=  NULL) 

{ 

if  (funct_ptr->fn_entptr  ==  NULL  &&  funct_ptr->fn_subptr  — =  NULL) 

{ 

system  ("clear”); 

printf("Entitv  name:  %s  n",  en  name): 
printf("Function  Name:  /os\n\n".  funct_ptr->fn_name); 

/*  Now.  traverse  the  Attribute  linked  list  that  is  being  created,  */ 

/*  to  see  if  the  current  Attribute  has  already  been  established  as  */ 

/*  a  Descriptor  Attribute.  If  so,  offer  the  user  the  opportunity  * / 

/*  to  add  additional  EQUALITY  or  RANGE  OF  VALUE  values;  otherwise,  */ 
/*  offer  the  user  the  opportunity  to  establish  this  as  a  Descriptor  * / 

/*  Attribute:  */ 

desc_node_ptr  =  desc_head_ptr; 
found  =  FALSE; 

while  ((desc_node_ptr  !=  NULL)  &&  (found  ==  FALSE)) 

{ 

if  (strcmp(funct_ptr->fn_name,  desc_node  ptr->attr_name)  ==  0) 

{ 

/*  The  Attribute  HAS  already  been  chosen  as  a  Descriptor.  */ 

/*  Allow  the  user  the  option  of  adding  additional  Descriptor  */ 

/*  values,  after  listing  those  already  entered:  */ 

printf("\nThis  Attribute  has  been  chosen  as  an  Indexing  Attribute. \nM); 
printf("The  following  are  the  values  that  have  been  specified:\n\nM); 
found  =  TRUE; 

valuenode_ptr  =  desc_node_ptr->first  value  node; 
while  (valuenode  ptr  !=  NULL) 

{ 

if  (desc_node_ptr->descriptor  type  ==  ’A’) 
printf("\t%s  %s\n",  valuenode  ptr->valuel, 
valuenode_ptr->value2); 

else 
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printf("\t%s\n",  valuenode_ptr->value2); 
valuenode_ptr  =  valuenode_ptr->next_value  node; 

}  /*  End  "while  (valuenode  ptr  !=  NULL)"  */ 

printf("\nDo  you  wish  to  add  more  "); 
if  (desc_node_ptr->descriptor  type  ==  ’A’) 
printf(  "RANGE") ; 
else 

printf(  "EQUALITY"); 
printff"  values?  (y  or  n)\n"); 
dap_info_ptr->dap  answer  =  get  ans(&num); 
if  ((dap_info_ptr->dap_answer  — —  ’y ’)  | 

(dap_info_ptr->dap  answer  ==  ’Y’)) 

/*  The  user  DOES  wish  to  add  more  descriptors  to  the  */ 

/*  currently  existing  list:  */ 

{ 

if  (desc  node  ptr->descriptor  type  ==  ’A1) 

build_RAN_descrip(desc  node  ptr,  funct  ptr->fn  total  length): 
else 

build_EQ_descrip(desc  node  ptr,  funct_ptr->fn  total  length): 

}  /*  End  "if  ((dap_info_ptr->dap_answer  ==  ?y’)  II 

(dap_info  ptr->dap_answer  ==  *Y’))  */ 

}  /*  End  "if  (strcmp(...)  ==  0)"  */ 

desc  node_ptr  =  desc  node  ptr->next  desc  node: 

}  /*  End  "while  ((desc_ncTde_ptr  !=  NULL)  tk  (found..))"  */ 

if  (found  ==  FALSE) 

/*  The  Attribute  has  NOT  previously  been  chosen  as  a  Descriptor.  */ 
/*  Allow  the  user  the  option  of  making  this  a  Descriptor  Attri-  */ 

/*  bute,  with  appropriate  Descriptor  Values:  */ 

{ 

printf("\nDo  you  wish  to  install  this  function  as  an  "); 
printf("Indexing  Attribute?\n\n"); 

printf("\t(n)  -  no;  continue  with  next  Attribute/Relation\n"); 
printf("\t(e)  -  yes;  establish  this  as  an  EQUALITY  Attribute\n"); 
printf("\t(r)  -  yes;  establish  this  as  a  RANGE  Attribute\n"); 
goodanswer  =  FALSE; 
while  (goodanswer  =—  FALSE) 

{ 

dap  info  ptr->dap  answer  =  get_ans(&num); 

switch(dap  info  ptr->dap_answer) 

case  ’n’:  /*  User  does  NOT  want  to  use  this  as  an  */ 

/*  Indexing  (Descriptor)  Attribute:  * j 

goodanswer  =  TRUE; 

break; 

case  V:  /*  User  wants  to  use  this  as  an  EQUALITY  */ 

/*  Attribute:  */ 
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good  answer  =  TRUE; 

desc  node  ptr  =  descriptor_node_alloc(); 

desc  node  ptr->next  desc  node  =  desc  head  ptr; 

desc  head  ptr  =  desc  node_ptr; 

strcpy(desc  node  ptr->attr  name,  funct_ptr->fn_name) 
desc  node  ptr->descriptor  type  =  ’B?; 
desc_node_ptr->value_type  =  get_fun_type(funct_ptr); 
desc  node  ptr->  first  value  node  =  NULL; 
build  _EQ_descrip(desc_node_ptr, 
funct_ptr->fn  _total_length); 

break: 

case  V:  /*  User  wants  to  use  this  as  a  RANGE  Attribute:  */ 
good  answer  =  TRUE; 

desc_node  ptr  =  descriptor_node_alloc(); 

desc  node  ptr->next  desc  node  =  desc  head  ptr; 

desc  head  ptr  =  desc  node  ptr; 

strcpy(desc_node  ptr->attr_name.  funct_ptr->fn_name) 
desc_node_ptr->descriptor_type  =  ’A’: 
desc_node_ptr->value_type  =  get_fun_type(funct_ptr); 

desc  node  ptr- >  first  _value_node  =  NULL: 
build  RAN  descrip(desc  node  ptr, 

funct  _ptr->fn_total_length); 

break: 

default:  /*  User  did  not  select  a  valid  choice:  */ 

printf("\nError  -  Invalid  operation  selected;\n"); 
printf(MPlease  pick  again\nn); 
break; 

}  /*  End  Switch  * / 

}  /*  End  "While  (goodanswer  =  FALSE)"  */ 

}  /*  End  "if  (found  ==  FALSE)"  */ 

}  /*  End  "if  (funct _ptr->fn_entptr  * / 

funct  ptr  —  funct  ptr->next; 

}  /*  End  "while  (funct_ptr  !=  NULL)"  */ 

#ifdef  EnExFlag 

printf("Exit  ask^all_fun_nodes\n"); 

#endif 

return(desc  head  ptr); 

} 
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FILE  :  buildcomm.c 


/ . 


^include  <stdio.h> 

^include  "licommdata.deP' 

^include  "flags. def’ 

^include  <ctype.h> 

^include  <strings.h> 

build  _EQ_descrip(desc  node  ptr,  attr  length) 

struct  descriptor  node  xdesc  node  ptr; 
int  attr_length; 


{ 

/*  This  routine  builds  the  EQUALITY  Descriptor  list  for  the  current 
/*  Attribute:  */ 


int 

end  routine: 

Boolean  flag 

int 

index: 

*  Loop  Index  * 

int 

loop  count: 

/*  Loop  Index 

int 

val  count: 

*  Loop  Index 

int 

str  len; 

/*  Length  of  input  */ 

char 

*temp  value: 

/*  Holds  answer  */ 

char 

*var  str  alloc (); 

/*  Allocates  Str.  */ 

struct 

value  node  *valuenode  ptr,  /*  Points  to  Value  Nod 

*value  node  alloc  ();  /*  Allocates  Value  Nodes  * 

#ifdef  EnExFlag 

printf(MEnter  build_EQ_descrip\nu); 

£endif 

/*  Repetitively  offer  the  user  the  opportunity  to  create  EQUALITY  de- 
/*  scriptors  for  the  current  Attribute,  halting  when  the  user  enters  */ 
/*  an  empty  carriage  return  (,,<CR>M).  */ 

temp_value  =  var_str_alloc(attr_length  +  l); 

end  routine  =  FALSE: 

while  (end_routine  FALSE) 

{ 

printf(,!\nEnter  EQUALITY  match  value,  or  <CR>  to  exit:  M); 
readstr(stdin,  temp_value); 
str  len  =  strlen(  temp  value  ): 

for  (index  =  0;  temp_value  indexj  ==  *  index^-r) 

if  (  str_len  !=  index  ) 

{ 

valuenode  ptr  =  value_node_alloc(attr_length); 

valuenode  ptr->next  value  node  =  desc  node  ptr->first  value  node; 
desc  node  ptr->first  value  node  =  valuenode_ptr; 
strcpy(valuenode_ptr->valuel,  M!M); 
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/*  Convert  first  character  in  temp_value  to  upper  case  if  nec.  */ 
if  (islower(temp_value[index])) 

temp  valueiindex  =  toupper(  temp  valueiindex’  ); 

/*  Convert  remaining  chars  in  temp  value  to  lower  case  if  nec.  */ 
for(  loopjcount  =  index  +  1;  loop  count  <=  str_len;  loop_count-h-h) 
if  (isupper(temp_valuejloop_count])) 

temp  valueiloop  count  =  tolower(  temp  valuejloop  county  ); 

/*  Store  temp  value  into  value2  from  index  to  end  of  string.  */ 
val_count  =  0; 

for(  loop_count  =  index:  loop_count  <=  str_len:  loop_count^  +  ) 
valuenode_ptr->value2  val  counts —  =  temp  value  loop  count  : 
valuenode_ptr->value2tval  _countj  =  ’\0’; 

} 

else 

end_routine  =  TRUE; 

} 

free(temp  value); 
ftifdef  EnExFlag 

printf("Exit  build_EQ_descrip\nM): 

#endif 

} 

build_RAN_descrip(desc_node_ptr,  attr_length) 

struct  descriptor  node  *desc  node  ptr; 
int  attr  length; 


{ 

/*  This  routine  builds  the  RANGE  OF  VALUEs  Descriptor  list  for  the  */ 
/*  current  Attribute:  */ 


int 

int 

int 

int 

int 

int 

struct 

char 

char 


end  routine;  /*  Boolean  flag  */ 

good_upper_value;  /*  Boolean  flag  */ 
index;  /*  Loop  Index  */ 

loopjcount;  /*  Loop  Index  * / 

val  jCount;  /*  Loop  Index  */ 

str_len;  /*  Length  of  input  */ 

value_node  *valuenode_ptr,  /*  Points  to  Value  Node 
*value_node  alloc();  /*  Allocates  Value  Nodes  */ 
*temp_value;  /*  Holds  answer  */ 

*var_str_alloc();  /*  Allocates  Str.  * / 


#ifdef  EnExFlag 

printf( "Enter  build_RAN_descrip\n"); 

#endif 
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/*  Repetitively  offer  the  user  the  opportunity  to  create  RANGE  OF  VALUE  */ 
/*  Descriptors  for  the  current  Attribute,  halting  when  the  user  enters  */ 

/*  an  empty  carriage  return  ("<CR>").  */ 

temp_value  =  var_str_alloc(attr_length  +  1); 

end_routine  =  FALSE; 

while  (end  routine  ==  FALSE) 

{ 

printf("\nEnter  Lower  Bound,  or  <CR>  to  exit:  "); 

readstr(stdin,  temp_value); 

str_len  =  strlen(  temp_value  ); 

for  (index  =  0;  temp_value  index]  ==  ’  index 

if  (  str_len  !=  index  ) 

{ 

valuenode_ptr  =  value_node_alloc(); 

valuenode  ptr->next  value  node  =  desc  node  ptr->first  value  node: 
desc_node_ptr->first_value_node  =  valuenode_ptr; 

/*  Convert  first  character  in  temp_value  to  upper  case  if  nec.  */ 
if  (islowerftemp  valueiindexl)) 

temp  value]index  =  toupper(  temp  value, index]  ); 

/*  Convert  remaining  chars  in  temp  value  to  lower  case  if  nec.  */ 
for(  loop_count  =  index  —  1;  loop_count  <=  str_len;  loop_count-H+) 
if  (isupper(temp _value[loop_count])) 

temp  value  loop  count]  =  tolower(  temp  value[loop  count]  ); 

/*  Store  temp  value  into  valuel  from  index  to  end  of  string.  */ 
val  count  =  0; 

for(  loop  count  =  index;  loop  count  <=  str_len;  loop_count+-f ) 
valuenode_ptr->valuel[val_count-}-+]  —  tempvalue  !loop_count]; 
valuenode_ptr->valuel[val_countj  =  ^0’; 

good  upper  value  =  FALSE; 
while  (good  upper_value  ==  FALSE) 

{ 

printf(n\nEnter  Upper  Bound:"); 
readstr(stdin.  temp_value); 
str_len  =  strlen(temp_value); 

for  (index  =  0;  temp_value[index]  ==  ’  index+-f) 

if  (str_len  !=  index) 

{ 

/*  Convert  first  character  in  temp_value  to  upper  case  if  nec.  */ 
if  (islower(temp_value[index])) 

temp_value[index]  —  toupper(  temp_value[index]  ); 

/*  Convert  remaining  chars  in  temp  value  to  lower  case  if  nec.  */ 
for(  loop_count  =  index  -f  1;  loop  count  <=  str_len;  loop_count-f-h) 
if  (isupper(temp_value[loop  count])) 


127 


temp  value  loop  count  =  tolower)  temp_value[loop  count  ): 

/*  Store  temp_value  into  valuel  from  index  to  end  of  string.  */ 
val  count  =  0; 

for(  loop_count  =  index;  loop_count  <=  str_len;  loop  count -t-^) 
valuenode_ptr->value2lval_count+-r 1  =  temp_valuejloop_count]; 
valuenode  ptr->value2[val  count]  =  ’\0’; 

good_upper_value  =  TRUE; 

} 

else 

printf("\nYou  must  supply  a  non-blank  Upper  Bound. \n"); 

} 

} 

else 

end_routine  =  TRUE; 

} 

#ifdef  EnExFlag 

printf("Exit  build _RAN_descrip\nn); 

£endif 

} 


wr_all_desc_values(fid,  desc_head_ptr) 

/*  This  routine  traverse  the  linked  list  of  descriptor  attributes  */ 
/*  and  write  all  descriptor  values  out  to  the  Descriptor  file  */ 

FILE  *  fid; 

struct  descriptor  node 

{ 

struct  descriptor  node 
struct  value_node 

#ifdef  EnExFlag 

printf(MEnter  wr_all_desc  values\n"); 

#endif 

desc_node_ptr  =  desc_head  ptr; 

while  (desc_node_ptr  !=  NULL) 

{ 

if  (desc_node_ptr-> first _value_node  !=  NULL) 

{ 

fprintf(fid,  ”%s  %c  %c\n",  desc_node_ptr->attr_name, 
desc_node_ptr->descriptor_type, 
desc  node  ptr->value  type); 
valuenode_ptr  =  desc_node_ptr->first_value_node; 
while  (valuenode_ptr  !=  NULL) 

{ 

fprintf(fid,n%s  %s\n,,J  valuenode_ptr->valuel, 


*desc_head  ptr; 

*desc  node  ptr; 

*valuenode_ptr;  /*  points  to  Value  Node  */ 
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valuenode_ptr->value2); 

valuenode_ptr  =  valuenode_ptr->next_value  node; 

}  • 1 *  End  "while  (valuenode_ptr  !=  NULL)"  * 

fprintf(fid,"9\n"): 

}  /*  End  "if  (desc_node_ptr->first_value_node  !=  NULL)  *  ' 
desc_node_ptr  =  desc_node  ptr->next  desc  node; 

}  /*  End  "while  (desc_node_ptr  !=  NULL)”  */ 
f print f( fid.  "S\n"): 
ifdef  EnExFlag 

printf ( "Exit  wr_all_desc _values  \ n " ) ; 

endif 

} 
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APPENDIX  C 


THE  KMS  MODULE 


1.  FILE  :  d.y 
%{ 

^include  <stdio.h> 

^include  <strings.h> 

^include  "licommdata.def" 

^include  "struct. def" 

#include  Mdap.extM 
^include  "lil.ext" 

^include  "kms.dcl" 

^include  "flags. def’ 

int  serror: 
int  in,  found; 
int  curr  op: 
int  dml_req_len; 
int  enum  length: 
int  funct_count=0; 
int  use_prev_name; 

int  rel_operator; 
int  in_op; 
int  literal  type; 

char  temp  str[NUMDIGIT  4-  1  ] ; 
char  db[DBNLength  4-  lj; 
char  temp_value|ENLength  4-  l] ; 
char  temp_name_id[ENLength  4-  1  ] ; 
char  temp'ENLength  -h  1]; 
char  base  name(ENLength  4-  l] ; 
char  *enum_str; 
char  *var_str_alloc(); 
char  *mem  ptr; 

struct  fun_dbid_node  *db_ptr; 

struct  ent_non_node  *ent_non_node_alloc(), 

*ennptr; 

struct  ent_value  *ent_value  allocQ, 

*entval_ptr, 

*entval_ptr2; 

struct  sub  non_node  *sub  non  node  allocQ, 

*snnptr; 

struct  der_non_node  *der_non_node_allocQ, 

*dnnptr; 


/*  length  of  enumeration  string  */ 

/*  boolean  flag  to  indicate  whether  prev_name  *7 
/*  is  used  in  function  type  declaration  */ 
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struct  ent  node 

struct  gen  sub  node 

struct  ent_node  list 
struct  sub_node_list 
struct  function_node 

struct  overlap_node 

struct  dap  kms  info 
struct  ident_list  *ident 

struct  dap  create  list 

struct  dap  create  list 
struct  dap_av_pair_list 
struct  req  line_list 

struct  dml_statement 
struct  dap_expr_info 

struct  relation  list 

struct  funct  appln 

struct  ent  info 

struct  set_constructor 

struct  set_construct2 

struct  set_construct3 

struct  loop  info  *loop 


*ent_node  alloc(), 

*  search  _entity(), 

*entptr, 

*last_entptr, 

*new_entptr; 

*new_gen  sub  node(), 

*search_gensub(), 

*subptr, 

*new_subptr, 

*last  subptr, 

*the  subptr; 
*ent_node_list_alloc(), 
*enl  ptr; 

*sub_node_list_alloc(), 

*snl_ptr; 

*function_node_alloc  ( ) , 
*search_funct(), 

*funct  ptr, 
*last_funct_ptr, 

*  first  funct  ptr; 

^overlap  _node_alloc() . 
*ovr  ptr; 

*dap  kms  info  alloc(); 
list  alloc(). 

*id_ptr, 

*temp  ptr, 
*new_temp_ptr; 

* create  list  1 , 
*create_list2, 

*dap_create  list_alloc(); 
*dcl_ptr; 

*av  ptr; 

*req  ptr; 

*dml  statement  alloc(); 
*dap_expr_info_alloc() , 
*dap_expr_ptr; 
*relation_list_alloc(), 
*rel_list_ptr; 

*funct  appln  alloc(), 
*funct_appln_ptr; 

*ent  info  ptr_alloc(), 
*ent_info_ptr; 
*set_constructor_alloc(), 
*set  construct  ptr; 
*set_construct2_alloc(), 
*set  construct2  ptr; 
*set_construct3_alloc(), 
*set_construct3_ptr; 
info_alloc(), 

*loop  info  ptr; 


struct  domain_info 
struct  simple  exprl 

struct  simple_expr2 
struct  simple_expr3 
struct  simple_expr4 
struct  d'ap_range  info 

struct  basic_expr_list 


*domain_ptr; 

*  simple  exprl  alloc(), 
*simple_expr_pcr; 
*simple_expr2_alloc(); 

^simple  exprS  alloc(); 

*  simple_expr4  _alloc  ( ) ; 

*dap  range  info  alloc(), 
*dap_range_ptr; 

* basic_expr_list  alloc (), 

*new  basic  expr_ptr, 

*basic_expr_ptr; 

struct  order  comp  list  * order  comp  list  alloc(), 

*  ord  er_co  m  p  _p  tr ; 

struct  comp  assoc_list  *comp_assoc_list_alloc(), 

*new  comp  assoc  ptr, 
*comp_assoc_ptr; 

struct  indexed  component  *indexed_component_alloc(), 

*new  indexed  comp  ptr. 

*  indexed  comp  ptr; 

struct  dml  statement2  list  *dml_statement2_list  alloc ( ) ? 

*dml  statement2  list  ptr: 


%} 


%union 

{ 

char  strl90]; 

} 


%token  AND 
%token  ASCENDING 
%token  AVG 
%token  BOOLEAN 
%token  BY 
%token  CONSTANT 
%token  COUNT 
%token  CREATE 
%token  DATABASE 
%token  DELTA 
%token  DESCENDING 
%token  DESTROY 
%token  DIGITS 
%token  EACH 
%token  ELSE 
%token  END 
%token  ENTITY 
%token  EVERY 
%token  EXCLUDE 
%token  FALSE  T 
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%token 

FLOAT 

%token 

FOR 

%token 

FROM 

%token 

IMAGE 

%token 

INCLUDE 

%token 

INTEGER 

%token 

INTO 

%token 

IN¬ 

%token 

IS 

%token 

LOOP 

%token 

MAX 

%token 

MIN 

%token 

MOVE 

%token 

NEW 

%token 

NOT 

%token 

NO 

%token 

NULL  T 

%token 

OF 

%token 

OR 

%token 

OVERLAP 

%token 

POS 

%token 

PRINT  LINE 

%token 

PRINT 

%token 

RANGE 

%token 

SET 

%token 

SOME 

%token 

STRING 

%token 

SUBTYPE 

%token 

SUM 

%token 

THEN- 

%token 

TRUE  T 

%token 

TYPE 

%token 

UNIQUE 

%token 

VALUE 

%token 

VAL 

%token 

WHERE 

%token 

WITHIN 

%token 

WITHNULL 

%token 

WITHOUTNULL 

%token 

WITH 

%token 

XOR 

%token 

<str>  IDENTIFIER 

%token 

<str>  CHARACTER  STRING 

%token 

<str>  FLOAT  LITERAL 

%token 

<str>  INTEGER  LITERAL 

%token 

ELIPSES 

%token 

DOT 

%token 

ASSIGN- 

%token 

COLON 
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%token 

IMPLY 

%token 

EQ 

%token 

NE 

%token 

GE 

%token 

GT 

%token 

LE 

%token 

LT 

%token 

COMMA 

%token 

SEMICOLON 

%token 

LP 

%token 

RP 

%token 

LCB 

%token 

RCB 

%token 

HYPHEN 

%start  statement 

%% 

statement: 

ddl  statement 

i  {" 

db  ptr  =  cuser  dap  ptr->ui  li  type.li  dap.dDi _curr_db.cdi  db.dn_fun; 

} 

dml  statement 


/*  Three  ident  list  struct  are  maintained  in  dap_kms_info:  */ 

/*  1.  Whenever  a  list  of  identifiers  is  read,  the  name_id  of  */ 

/*  each  identifier  is  kept  in  the  linked  list  dki_temp_ptr  */ 

/*  2.  When  there  is  more  than  one  list  to  be  compared  for  */ 

/*  uniqueness,  the  name_id  of  all  identifiers  are  kept  in  */ 

/*  the  link  list  dki_namel_ptr  and  dki_temp_ptr.  */ 

/*  3.  The  name  id  of  type  or  subtype  declaration  are  kept  in  */ 

/*  the  link  list  dki_id  _ptr  and  dki_temp_ptr.  */ 

/*  The  new  id  rule  below  will  detect  duplicate  declaration  of  */ 
/*  name_id  against  dki_id_ptr,  but  will  not  issue  an  error  */ 

/*  message.  It  will  set  the  flag  "found"  on  instead.  */ 

/*  The  id_list  rule  check  duplication  against  dki_temp_ptr  and  */ 
/*  issue  error  message  using  the  variable  "serror".  So,"serror"  */ 

/*  must  be  set  before  using  the  rule  id_list.  */ 

/*  Similarly,  the  namel  and  namel_list  rules  use  "serror"  when  */ 
/*  duplication  is  detected  against  dki_namel  ptr.  So  "serror"  */ 
/*  must  also  be  set  before  hand.  */ 

name_id:  IDENTIFIER 

/*  this  rule  assigns  IDENTIFIER  to  the  variable  temp_value  */ 

/*  and  trancates  it  if  it  is  longer  then  ENLength  */ 
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{ 

fifdef  DYacFlag 

printf(,,name_id  %s  recognized\nn,$l); 

#endif 

strncpy(temp_value,$l.ENLength); 
if  (strlen(Sl)  >  ENLength) 

printfC’warning:  name_id  %s  trancated  to  %s\n”,$l,temp  value) 

} 


new_id:  name_id 

/*  Check  for  duplicate  declaration  against  list  pointed  to  */ 
/*  by  dki_id_ptr.  If  not  found,  insert  it  to  the  list  for  */ 

/*  subsequent  comparisons  of  uniqueness  * / 

{ 

#ifdef  DYacFlag 

printf(nnew_id  recognized\nM); 

#endif 

found  =  FALSE; 

id  ptr  =  kms  ptr->dki  id  ptr; 

while(id_ptr  !=  NULL  &&  (!found)) 

{ 

if  (strcmp(id_ptr->name,  temp_value)  ==  FALSE) 
found  =  TRUE; 
else 

id_ptr  =  id_ptr->next: 

}  /*  end  while  */ 

if  (Ifound) 

{ 

id  ptr  =  ident  list  alloc(); 
strcpy(id_ptr->name.  temp  value); 
id  ptr->next  =  kms  ptr->dki  id  ptr; 
kms_ptr->dki_id_ptr  =  id_ptr; 

} 

} 

new  id  list:  /*  use  dki_temp_ptr  to  keep  list  of  name_id  */ 

new_id 

{ 

if  (found) 

proc  eval  error(serror,temp_value); 
free_temp_list(); 

kms  ptr->dki_temp_ptr  =  ident_list_alloc(); 
strcpy(kms_ptr->dki_temp_ptr->name,  temp_value); 
kms^ptr->dki_temp_ptr->next  =  NULL; 

} 

|  new^id^list  COMMA  new  id 

{ 

if  (found) 

proc_eval  error(serror,temp_value); 
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temp  ptr  =  ident_list_alloc(); 
strcpy(temp  ptr->name,  temp_value); 
temp  _ptr->next  =  kms_ptr->dki_temp_ptr; 
kms  _ptr->dki_temp_ptr  =  temp_ptr; 

} 

id  list: 
name_id 
{ 

free  temp  list () ; 

kms  ptr->dki_temp_ptr  =  ident_list_alloc(); 
strcpy(kms  ptr->dki  temp  ptr->name,  temp  value); 
kms  ptr->dki_temp_ptr->next  =  NULL; 

} 

|  id  list  COMMA  name_id 
{” 

found  =  FALSE; 

temp  ptr  =  kms  ptr->dki  temp  ptr; 
while  ((temp_ptr  !=  NULL)  (Ifound)) 

{ 

if  (strcmp(temp_ptr->name.  temp_value)==  FALSE) 
found  =  TRUE; 
else 

temp_ptr  =  temp_ptr->next: 

} 

if  (Ifound) 

{ 

temp  ptr  =  ident_list_alloc(); 
strcpy(temp  ptr->name,  temp_value); 
temp  _ptr->next  =  kms_ptr->dki_temp_ptr; 
kms_ptr->dki_temp_ptr  =  temp_ptr; 

} 

else  /*  found  duplicate  */ 

proc  eval  error(serror,temp  value); 

} 

> 

namel:  name_id 

{ 

#ifdef  DYacFlag 

printf(,lenter  namel\nn); 

#endif 

found  =  FALSE; 

temp_ptr  =  kms_ptr->dki_namel_ptr; 
while  ((temp_ptr  !=  NULL)  &&  (Ifound)) 

{ 

if  (strcmp(temp_ptr->name,  temp_value)==  FALSE) 
found  =  TRUE; 

else 

temp  ptr  =  temp  ptr->next; 
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} 

if  (!found) 

{ 

id  _ptr  =  ident_list  alloc(); 
strcpy(id_ptr->name,  temp  value); 
id_ptr->next  =  kms_ptr->dki_namel  ptr; 
kms_ptr->dki  namel  ptr  =  id  ptr; 

} 

else 

proc_eval_error(serror,temp  value); 

#ifdef  DYacFlag  “ 

printf(Mexit  namel  proc\nM); 

frendif 

} 


namel_list:  /*  remember  to  call  free_namel_list  before  using  */ 

'*  namel _ list  for  the  first  list  */ 

namel 

{ 

free  temp  list ( ) : 

kms  _ptr->dki_temp_ptr  =  ident_list_alloc(); 
strcpy(kms_ptr->dki  temp_ptr->name,  temp  value); 
kms_ptr->dki_temp_ptr->next  =  NULL; 

} 

|  namel  _list  COMMA  namel 

f 

temp  ptr  =  ident  list  alloc(); 
strcpy(temp  ptr->name,  temp  value); 
temp_ptr->next  =  kms_ptr->dki_temp_ptr; 
kms  ptr->dki  temp  ptr  =  temp  ptr; 

} 

) 

/*********************/ 

/**  ddl  statement  **/ 

/*********************/ 

ddljstatement: 

DATABASE  name  id  /*  database  name  */ 

/*  the  fun  dbid  node  is  located  and  compared  for  correctness  */ 

{ 

#ifdef  DYacFlag 

printf(Mname_id  in  ddl_statement  recognized\n,f); 

#endif 

db  ptr  =  cuser_dap_ptr->ui_li_type.li_dap.dpi_curr_db.cdi_db.dn_fun; 
if  (strcmp(temp  value,  db  ptr->fdn_name)  !=  FALSE) 

{ 

serror  =  0; 
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proc  eval  error(serror,temp  value); 

YY  ACCEPT; 

} 

kms  jptr->dki_id_ptr  =  ident_list_alloc(); 
strcpy(kms_ptr->dki_id_ptr->name,  tempvalue); 
kms  ptr->dki  id  ptr->next  =  NULL: 

} 

IS  declarative  item  list  end  database  SEMICOLON 


end  database: 

END 

|  END  name_id 

{ 

if  (strcmp(temp_value.  db_ptr->fdn_name)  !=  FALSE) 

printf(!fwarning:  different  db  name  declared  at  end,  ignored\nn); 

} 


declarative_item_list:  declarative_item 

declarative  item  list  declarative  item 


declarative  item:  declaration 
|  overlap  rule 
I  uniqueness_rule 

|  error  SEMICOLON 


overlap  rule: 

OVERLAP 

{ 

serror  =  13;  /*  duplicate  identifier  in  list  */ 
free_name  1 _ list  ( ) ; 

} 

namel^list 

{ 

#ifdef  DYacFlag 

printf(nfirst  namel  list  in  overlap  rule  part  recognized\nn); 

#endif 

ovr  ptr  =  overlap  node  alloc(); 
ovr  ptr->num  sub  node  =  0; 
ovr_ptr->snlptr  =  NULL; 
temp  ptr  =  kms  ptr->dki  temp  ptr; 
while  (temp_ptr  !=  NULL) 

{ 

subptr  =  db  ptr->fdn  subptr; 
in  =  FALSE; 

while  ((subptr  !=  NULL)  &&  (!in) ) 

{ 

if  (strcmp(temp_ptr->name,  subptr->gsn_name)  ==  FALSE) 
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{ 


in  =  TRUE; 

/*  overlap  types  must  be  terminal  subtype  */ 
if  (!(subptr->gsn_terminal)) 

proc  _eval  _error(  14,  temp  jptr->  name); 
else 

{ 

find_base_type(subptr,base  name); 
if  (ovr_ptr->num_sub_node  ==  0) 

strcpy  (ovr_ptr->base_type  name, base  name); 
else  if  (strcmp(ovr_ptr->base  type  name. base  name)) 
/*  overlap  types  must  have  same  base  type  */ 
proc_eval_error( 20, temp  ptr-> name) ; 
snl_ptr  =  subnodelist  alloc (); 
snl_ptr->  subptr  =  subptr; 
snl^ptr->next  =  ovr_ptr->snlptr; 
ovr_ptr->snlptr  =  snl_ptr; 
ovr  ptr->num  sub  node-h+; 

} 

} 

else 

subptr  =  subptr->gsn  next  genptr; 

}  /*  end  while  */ 

if  (!in)  /*  undeclared  subtype  name  */ 
proc  eval  error(10,temp  ptr->name); 
temp_ptr  =  temp  ptr->next: 

} 

} 

WITH  namel  list  SEMICOLON 

{ 

#ifdef  DYacFlag 

printf(nsecond  namel  list  in  overlap  rule  part  recognized\nM); 

#endif 

temp  ptr  =  kms  ptr->dki  temp  ptr; 
while  (temp  ptr  !=  NULL) 

{ 

subptr  =  db_ptr->fdn_subptr; 
in  =  FALSE; 

while  ((subptr  !=  NULL)  &&  ( !in) ) 

{ 

if  (strcmp(subptr->gsn  name,  temp  _ptr->name)  ==  FALSE) 

{ 

in  =  TRUE; 

/*  overlap  types  must  be  terminal  subtype  */ 
if  (!(subptr->gsn_terminal)) 

proc_eval  error(l4,temp_ptr->name); 
else 
{ 

find  base  type(subptr,base  name); 
if  (strcmp(ovr  ptr->base  type  name.?  dsejame)) 

/*  overlap  types  must  have  same  base  type  */ 
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proceval  _error(20,temp_ptr->name) ; 
snl_ptr  =  sub_node_list_alloc(); 
snl  ptr->subptr  =  subptr; 
snl  ptr->next  =  ovr  ptr->snlptr; 
ovr_ptr->snlptr  =  snl_ptr; 
ovr  ptr->num  sub  node-fi-; 

} 

}  /*  end  in  -  TRUE  */ 

else  /*  strcmp  ==  TRUE  * / 

subptr  =  subptr->gsn  next  genptr; 

} 

if  (!in)  /*  undeclared  subtype  name  */ 

proc_eval_error(lO,temp_ptr->name); 

temp  ptr  =  temp  ptr->next; 

}  /*  end  while  temp_ptr  */ 
ovr_ptr->next  =  db_ptr->fdn_ovrptr; 
db _ptr->fdn  ovrptr  =  ovr  ptr; 
db  ptr->fdn  num  ovr-h^; 

#ifdef  DYacFlag 

printf(noverlap_rule  part  done\n,r); 

#endif 

} 


uniquenessrule: 

UNIQUE 

{ 

#ifdef  DYacFlag 

printf(”uniqueness  rule  part  recognized\nM); 

#endif 

serror  =  13;  /*  duplicate  identifier  in  list  */ 

} 

id  list  WITHIN  name_id  SEMICOLON 

{ 

entptr  =  db_ptr->fdn_entptr; 
subptr  =  db_ptr->fdn_subptr; 
in  =  FALSE; 

while  ((entptr  !=  NULL)  &&  ( !in)) 

{ 

if  (strcmp(entptr->en  name,  temp  value)  ==  FALSE) 

{ 

in  =  TRUE; 

first  funct  ptr  =  entptr->en  ftnptr; 

} 

else 

entptr  =  entptr->en_next_ent; 

}  /*  end  while  entptr  */ 
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while  ((subptr  !=  NULL)  &&  (!in)) 

{ 

if  (strcmp(subptr->gsn_name,  temp_value)  ==  FALSE) 

{ 

in  =  TRUE; 

first_funct_ptr  =  subptr->gsn  ftnptr; 

} 

else 

subptr  =  subptr->gsn_next  genptr; 

}  /*  end  while  subptr  * 

if  (!in)  /*  undefined  entity  type  or  subtype  */ 

proc_eval_error(15,temp  value); 
else 

/*  find  the  function  node  and  set  its  unique  field  to  true  * 

{ 

temp_ptr  =  kms  ptr->dki  temp  ptr; 
while  (temp  ptr  !=  NULL) 

{ 

funct_ptr  =  first  _funct_ptr; 
found  -  FALSE; 

while  ((funct  ptr  !=  NULL)  &&  (!found)) 

{ 

if(strcmp(temp_ptr->name,  funct  ptr->fn  name)  ==  FALSE) 

{ 

found  =  TRUE; 

funct_ptr->fn_unique  —  TRUE; 

} 

else 

funct_ptr  =  funct_ptr->next; 

}  /*  end  while  funct  ptr  * / 

if  (Ifound)  /*  undelaxed  function  identifier  */ 
proc  eval  error(6,temp_ptr->name); 

temp_ptr  =  temp_ptr->next; 

}  /*  end  while  temp_ptr  */ 

} 

#ifdef  DYacFlag 

printf(Muniqueness_rule  part  done\nn); 

#endif 

} 


declaration:  number  declaration 
|  TYPE  new  "id 
{ 

#ifdef  DYacFlag 

printf(!,type_declaration  recognized\nn); 

#endif 

strcpy(temp_name_id,  temp_value); 
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} 

type  declaration 

{ 

#ifdef  DYacFlag 

printf(Mtype_declaration  done\nn); 

#endif 

} 

|  SUBTYPE  new  id 

{ 

#ifdef  DYacFlag 

printf(Msubtype  declaration  recognized\nM); 
#endif 

strcpyftemp  name_id.  temp_value); 

} 

subtype  declaration 

{ 

#ifdef  DYacFlag 

printf(Msubtype_declaration  done\nM); 

#endif 

} 


number_declaration:  *  section  4.2.5  * 

{ 

serror  =  1:  /*  duplicate  constant  name  * 

} 

newidlist  COLON  CONSTANT  ASSIGN  simple  const  SEMICOLON 

{ 

temp_ptr  =  kms_ptr->dki_temp_ptr; 
while  (temp_ptr  !—  NULL) 

{ 

/*  At  this  point  ent_non_node’s  are  filled  with  the  */ 

/*  information  previously  allocated  in  the  kms  info  */ 

/*  structure.  The  amount  of  nodes  is  dependent  on  */ 

/*  the  amount  of  names  in  the  temp  structure.  */ 

add_ent_non_node(temp_ptr->name); 
tempptr  —  temp_ptr->next; 

} 

} 

3 

simple_const: 

/*  dap  kms  info  structures  are  built  for  subsequent  */ 

/*  nonentity  node  insertion  into  the  schema  */ 

INTEGERL1TERAL 

{ 

put_dki_ent  non(T,  Si); 

} 

I  FLOAT  LITERAL 
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{ 


put  dki_ent  non(T,  $1); 

} 

|  CHARACTER  STRING 

{ 

put_dki_ent_non(V,  $1); 

} 


type  declaration: 

IS  type  definition  SEMICOLON 

/*  the  following  switch  statement  allocates  a  nonentity  or  derived  */ 
*  node  to  the  schema  dependent  upon  the  value  of  curr  op  */ 

{ 

switch(curr_op) 

{ 

case  NonEnt: 

add_ent_non_node(temp  name  id); 
break; 

case  Derived: 

dnnptr  =  der  non  node  allocQ; 
strcpy(dnnptr->dnn_name,  temp_name_id  ); 
dnnptr->dnn_type  =  kms_ptr->dki_ent  non.enn  type  ; 
dnnptr->dnn  total  length  = 

kms_ptr->dki_ent_non.enn_total  length  ; 
dnnptr->dnn  range  =  kms  ptr->dki  ent  non.enn  range  ; 
dnnptr-  >dnn_num_values  = 

kms  ptr->dki  ent  non.enn  num  values  ; 
dnnptr->dnn_value  =  kms_ptr->dki  ent  non.enn  value  ; 
kms  ptr->dki  ent_non.enn  value  =  NULL; 
dnnptr->dnn  next  node  =  db  ptr->fdn  nonderptr; 
db_ptr->fdn_nonderptr  =  dnnptr; 
break; 

}  /*  end  switch  */ 


} 

IS  entity  type  definition  SEMICOLON 

{  ”  7 

/*  check  if  name  id  is  on  the  ent  list  of  the  schema  */ 
entptr  =  db  ptr->fdn_entptr; 
in  =  FALSE; 

while  ((entptr  !=  NULL)  &&  (!in)) 

{ 

if  (strcmp(entptr->en  name,  temp_name_id)  ==  FALSE) 
in  =  TRUE; 
else 

entptr  =  entptr->en  next_ent; 


143 


} 

if  (!in) 

{ 

entptr  =  ent_node_alloc(); 
strcpy(entptr->en  name,  temp  namejd); 
entptr->en  last  ent  id  =  0; 
entptr->en_num_funct  =  0; 
entptr->en_terminal  =  TRUE; 
entptr->en_ftnptr  =  NULL; 
entptr->en  next_ent  =  db_ptr->fdn  entptr; 
db_ptr->fdn_entptr  =  entptr; 
db_ptr->fdn_num_ent+-b; 

} 

if  (entptr->en  num  funct  ==  0) 

{ 

entptr->en  ftnptr  =  funct  ptr; 

entptr->en_num_funct  =  entptr->en_num_funct  +  funct_count; 

} 

else 

proc_eval_error(3,temp_name_id);  /*  duplicate  entity  type  name  */ 
funct_count  =  0; 
last  funct  ptr  =  NULL; 

} 

incomplete  type  declaration 


incomplete  type  declaration:  /*  entity  */ 
SEMICOLON  “ 

{ 

#ifdef  DYacFlag 

printf(Mincomplete  type  declaration  recognized\ntf); 
#endif 

if  (found)  /*  duplicate  entity  type  */ 
proc  eval  error(3,temp  value); 

else 

{ 

/*  add  entity  node  here  */ 

entptr  =  ent  node  allocQ; 
strcpy(entptr->en  name,  temp  value); 
entptr->en_last_ent_id  =  0; 
entptr->en  num  funct  =  0; 
entptr->en  terminal  =  TRUE; 
entptr->en_ftnptr  =  NULL; 
entptr->en_next_ent  =  db  ptr->fdn_entptr; 
db_ptr->fdn_entptr  =  entptr; 
db_ptr->fdn_num_ent+-f ; 

} 

#ifdef  DYacFlag 

printf( "incomplete  type  declaration  done\nn); 
#endif 

} 
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type_definition: 
enumeration_type  definition 
{  curr_op  =  NonEnt;  } 
|  integer_range 

{  curr  op  =  NonEnt;  } 
float  _range 

{  currop  =  NonEnt;  } 
derived_type_definition 

{  curr_op  =  Derived;  } 


enumeration  type  definition: 

LP 

/*  enumeration  dap_kms  info  structures  for  */ 

/*  nonentity  and  function  nodes  are  initialized  */ 


{ 

£ifdef  DYacFlag 

printf(MLP  in  database_specification  recognized\nM); 

-endif 

kms  ptr-^>dki  ent  non.enn  type  =  V; 
kms  ptr->dki  ent  non.enn  range  =  TRUE; 
kms_ptr->dki_ent_non.enn_num_values  =  0; 
kms_ptr->dki_ent_non.enn  constant  =  FALSE; 

}  " 
enumeration  literal  list  RP 


enumeration_literal_list: 
enumeration  literal 

/*  the  pointers  are  set  for  value  nodes  with  * / 

/*  concurrent  incrementation  of  the  number  of  */ 
/*  value  nodes  present  in  the  nonentity  and  */ 
/*  function  structures  */ 


{ 

kms_ptr-  >dki_ent_non.enn_num_values-f-h; 
kms  ptr->dki_ent  non.enn_value  =  entval  ptr; 
kms_ptr->dki_ent_non.enn_total_length  =  enum_length; 
entval  ptr  =  NULL; 

} 

|  enumeration  literal  list  COMMA  enumeration  literal 

{ 

kms  ptr->dki_ent_non.enn_num_values+-f; 
entval  ptr2  =  kms  ptr->dki  ent  non.enn_value; 
while  (entval  ptr2->next  !=  NULL) 


145 


entval  ptr2  =  entval  ptr2->next; 
entval  ptr2->next  =  entval  ptr; 
if  (enum_length  >  kms_ptr->dki_ent_non.enn_total_length) 
kms_ptr->dki_ent_non.enn_total_length  =  enum  length. 
entval_ptr  =  NULL; 

} 


enumeration  literal;  IDENTIFIER 

{ 

#ifdef  DYacFlag 

printf("enumeration_literal  recogmzed\ nM); 

#endif 

entval  ptr  =  ent  value  alloc(); 
enum_length  =  strlen($l)  -f  1; 

entval_ptr->ev_value  =  var  str  alloc(enum  length); 
strcpv(entval  ptr->ev  value,  $1); 
encval_ptr->next  =  NULL; 

} 


integer_range:  RANGE  inc  range 


int  range  INTEGER  LITERAL  ELIPSES  INTEGER  LITERAL 

{ 

add_range_non  node(T,  $1,  $3); 

} 


float _range:  RANGE  FLOAT  LITER AL  ELIPSES  FLOAT  LITERAL 

{ 

add_range  non  node(T,  $2,  $4); 

} 


derived_type  definition:  NEW  name  id  derived  range 

/*  the  nonentity,  subtype  nonentity,  and  derived  type  */ 
/*  nonentity  nodes  are  examined  to  find  which  con-  */ 
/*  the  current  value  of  IDENTIFIER  */ 


{ 

serror  =  16;  /*  incompatable  derived  type  */ 

compare  non  node  type(temp  value,  serror); 

} 


derived  range:  /*  enumeration  type  not  included?  section  4.2.4  */ 

integer  range 
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float  range 


entity_type  definition: 

ENTITY  ' 

{ 

free_namel_list(); 

} 

entity_component_declaration  list  END  ENTITY 
i  ENTITY  END  ENTITY 


entity  component  declaration  list: 
entity_component  declaration 

entitv_component_declaration  list  entity  component  declaration 


entity  component  declaration: 
namel_list  COLON 
{ 

/*  initialize  use  prev  name  flag  */ 
use_prev_name  =  FALSE: 

} 

function_tvpe_declaration 

{ 

#ifdef  DYacFlag 

printf("function_type_declaration  in  entity_compo_declaration\n"); 
f^endif 

temp_ptr  =  kms_ptr->dki_temp_ptr; 
while  (temp_ptr  !=  NULL) 

{ 

funct_count — 

funct  ptr  =  function  node  alloc(); 
strcpy(funct  ptr->fn  name,  temp_ptr->name); 
if  (use_prev_name) 

funct  ptr->fn  type  =  V; 
else 

funct  ptr->fn  type  =  kms  ptr->dki  funct. fn  type; 
funct  ptr->fn  range  =  kms_ptr->dki_funct.fn_range; 
funct  ptr->fn  total_length  =  kms_ptr->dki  funct. fn  total  length; 
funct_ptr->fn_num_value  =  kms_ptr->dki_funct.fn_num_value; 
funct  ptr->fn  value  =  kms_ptr->dki_funct.fn_value; 
funct  ptr->fn  entptr  =  kms  ptr->dki  funct. fn  entptr; 
funct_ptr->fn_subptr  =  kms_ptr->dki_funct.fn_subptr; 
funct  ptr->fn  nonentptr  =  kms  ptr->dki  funct. fn  nonentptr; 
funct  ptr->fn  nonsubptr  =  kms  ptr->dki_funct.fn_nonsubptr; 
funct  ptr->fn  nonderptr  =  kms_ptr->dki_funct.fn_nonderptr; 
funct_ptr->fn_entnull  =  kms_ptr->dki_funct.fn_entnull; 
funct_ptr->fn_unique  =  kms_ptr->dki_funct.fn_unique; 
funct  ptr->next  =  last  funct_ptr; 
last  funct  ptr  =  funct_ptr; 
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temp  ptr  =  temp  ptr->next; 

} 


} 

error  SEMICOLON 


function_type  declaration: 
function_type  end_scalar_function 
I  set_type_definition  SEMICOLON 


set  type  definition:  SET  OF  function  type 

T 

kms_ptr->dki_funct.fn_set  =  TRUE; 

} 


end  scalar  function: 

SE~MICOLON 

ASSIGN 

{ 

serror  =  18;  /*  incompatible  assignment  */ 

kms_ptr->dki_funct.fn_num_value  =  1; 
kms  ptr->dki  funct.fn  value  =  ent  value  allocQ; 
kms_ptr->dki_funct.fn_value->next  =  NULL; 

} 

default  value  SEMICOLON 


default  value: 

INTEGERLITERAL 

{ 

if  (kms_ptr->dki_funct.fn_type  !=  5i’) 

proc_eval_error(serror,$l);  /*  incompatible  assignment  * / 
kms_ptr->dki_funct.fn_value->ev_value  =  var_str_alloc(strlen($l)-fl); 
strcpy(kms_ptr->dki_funct.fn_value->ev_value,$l); 

} 

FLOATLITERAL 

{ 

if  (kms_ptr->dki_funct.fn  type  !=  T) 

proc_eval_error(serror,$l);  /*  incompatible  assignment  */ 
kms_ptr->dki_funct.fn_value->ev_value  =  var_str_alloc(strlen($l)-|-l); 
strcpy (kms_ptr->dki  funct.fn_value->ev  value, $1); 

} 

CHARACTERSTRING 

{ 

if  (kms_ptr->dki_funct.fn_type  !=  ’s’) 

proc_eval_error(serror,$l);  /*  incompatible  assignment  */ 
kms_ptr->dki_funct.fn_value->ev  jvalue  =  var_str_alloc(strlen($l)d-l); 
strcpy  (kms_ptr->dki_funct.fn_value->ev_value,$l); 

} 
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boolean_value 

{ 

if  (kms_ptr->dki_funct.fn_type  !=  ’b’) 

proc_eval_error(serror?,m);  /*  incompatible  assignment  */ 

} 


boolean  value: 

TRUEST 

{ 

kms_ptr->dki_funct.fn  value->ev  value  =  var  str  alloc ( 2 ) : 
strcpy(kms_ptr->dki_funct.fn  value->ev  value.T,l M); 

} 

I  FALSET 

{ 

kms_ptr->dki  funct.fn  value->ev  value  =  var  str  alloc(2): 
strcpv(kms_ptr->dki_funct.fn  value->ev  value, "0"): 

} 


function_type: 
type_mark  constraint 
STRING  LP  string  range  RP 
{ 

put_dki_funct(V); 

kms_ptr->dki_funct.fn_total_length  = 
str_to_num(kms_Ptr‘>dki_ent_non.enn_value->next->ev_value)  - 
str  to  num(kms  ptr->dki  ent  non.enn  value->ev_value)  -f  1; 

} 


string_range: 
int  range 

|  INTEGER JLITERAL 

{ 

add_range_non_node(’i\  "1",  Si); 

} 

) 

type_mark: 
name  id 
{ 

use  prev  name  =  TRUE; 
ennptr  =  db_ptr->fdn_nonentptr; 
entptr  =  db  ptr->fdn  entptr; 
subptr  =  db  ptr->fdn  subptr; 
snnptr  =  db  ptr->fdn  nonsubptr; 
dnnptr  =  db  ptr->fdn  nonderptr; 
in  =  FALSE; 

while  ((ennptr  !=  NULL)  &&:  ( !in) ) 

{ 
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if  (strcmp(ennptr->enn_name,  temp_value)  ==  FALSE) 

{ 

in  =  TRUE; 

put_dki_funct(ennptr->enn_type); 
kms  ptr->dki  funct.fn  total  length  — 

ennptr->enn_total_length; 
kms  ptr->dki  funct.fn  nonentptr  =  ennptr; 

} 

else 

ennptr  =  ennptr->enn  next  node: 

} 

while  ((snnptr  !=  NULL)  &&:  ( !in) ) 

{ 

if  (strcmp(snnptr->snn_name,  temp_value)  ==  FALSE) 

{ 

in  =  TRUE; 

put_dki  funct(snnptr->snn_type): 
kms_ptr->dki  funct.fn  total _length  = 

snnptr->snn  total  length: 
kms  ptr->dki  funct.fn  nonsubptr  =  snnptr: 

} 

else 

snnptr  =  snnptr->snn  next  node: 

} 

while  ((dnnptr  !=  NULL)  &&  (*in)) 

{ 

if  (strcmp(dnnptr->dnn_name,  temp  value)  ==  FALSE) 

{ 

in  =  TRUE; 

put  dki  funct(dnnptr->dnn  type); 
kms_ptr->dki_funct.fn_total_length  = 

dnnptr->dnn_total_length; 
kms_ptr->dki_funct.fn_nonderptr  =  dnnptr; 

} 

else 

dnnptr  =  dnnptr->dnn_next_node; 

} 

while  ((subptr  !=  NULL)  ( !in ) ) 

{ 

if  (strcmp(subptr->gsn_name,  temp_value)  ==  FALSE) 

{ 

in  =  TRUE; 
put_dki_J'unct(,E’); 

kms^ptr->dki_funct.fn_subptr  =  subptr; 

} 

else 

subptr  =  subptr- >gsn_nexl  genptr; 

} 
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while  ((entptr  !=  NULL)  &&  (!in)) 

{ 

if  (strcmp(entptr->en_name,  temp_value)  ==  FALSE) 

{ 

in  =  TRUE; 
put_dki_funct(’E’); 

kms_ptr->dki  funct.fn  entptr  =  entptr; 

} 

else 

entptr  =  entptr->en_next_ent; 

} 

if  (in) 

{ 

strcpv(temp,  temp_value); 

} 

else  /*  id  must  be  previously  declared  */ 
proc_eval_error(  19. temp  value): 

} 

FLOAT 

{ 

put_dki_funct(T): 

} 

INTEGER 

{ 

put_dki_funct(T); 

} 

BOOLEAN 

{ 

putjdki  funct(’b’); 

} 


constraint: 

/*  empty  */ 
range  constraint 
|  null  constraint 
{ 

if  (kms_ptr->dki_funct.fn_type  !=  ’E’) 

{ 

printf(f,warning:  illegal  null  constraint  declaration  ignored\n,f); 
kms  ptr->dki_funct.fn_entnull  =  FALSE; 

} 

} 


range  constraint: 

/*  range  constraints  here  are  ignored,  no  action  necessary  */ 
integer  range 
float  range 
enumeration_range 
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enumeration  range:  RANGE  IDENTIFIER  ELIPSES  IDENTIFIER 


null_constraint: 

WITHNULL 

{ 

kms_ptr->dki_funct.fn_entnull  =  TRUE; 

} 

WITHOUTNULL 


subtype  declaration: 

IS 

{ 

serror  =  13;  /*  duplicate  id  in  list  */ 

} 

complete  subtype  SEMICOLON 
j  incomplete  subtype  declaration 


complete_subtype: 
name  id  subtype  definition 
{ 

serror  =17:  /*  incompatable  subtype  declaration  */ 

compare  non  node  type(temp  value,  serror); 

/*  create  sub  non  node  */ 

snnptr  =  sub  non  node  alloc(); 

strcpy(snnptr->snn_name,  tempvalue); 

snnptr->snn_type  =  kms_ptr->dki_ent  non.enn  type; 

snnptr->snn  total  length  =  kms  ptr->dki  ent  non.enn  total  length; 

snnptr->snn_range  =  kms_ptr->dki_ent_non.enn_range; 

snnptr->snn  num_values  =  kms_ptr->dki  ent  non.enn  num  values; 

snnptr->snn_value  =  kms_ptr->dki_ent_non.enn_value; 

kms_ptr->dki_ent  non.enn  value  =  NULL; 

snnptr->snn  next  node  =  db  ptr->fdn  nonsubptr; 

db_ptr->fdn_nonsubptr  =  snnptr; 

} 

|  id  list 
{“ 

/*  locate  or  create  the  gen  sub  node  */ 
the_subptr  =  db_ptr->fdn_subptr; 
in  =  FALSE; 

while  ((the_subptr  !=  NULL)  (!in) ) 

{ 

if  (strcmp(the_subptr->gsn_name,  temp_name  id)  — ~  FALSE) 
in  =  TRUE; 
else 

the  subptr  =  the  subptr->gsn  next  genptr; 
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} 

if  (!in) 

the_subptr  =  new_gen_sub_node(temp  name  id); 

/*  For  each  name_id  in  id  list. locate  the  gen  sub  node  *  / 

*  or  the  ent_node  and  change  them  to  nonterminal  type.  *f 
f*  Corresponding  overlap  node  is  created  and  the  subptr  */ 

/*  is  updated.  */ 

temp_ptr  =  kms_ptr->dki_temp_ptr; 
while  (temp  ptr  !=  NULL) 

{ 

subptr  =  db  ptr->fdn  subptr: 

entptr  =  db  ptr->fdn  entptr: 
in  =  FALSE: 

while  ((subptr  !=  NULL)  (!in)) 

{ 

if  (strcmp(subptr->2sn  name,  temp  ptr->name)  — =  FALSE) 

{ 

in  =  TRUE: 

subptr->gsn  terminal  =  FALSE; 

the_subptr->gsn_num_sub - : 

snl  ptr  =  sub  node  list  alloc(); 

snl  ptr->subptr  =  subptr: 

snl  ptr->next  =  the  subptr->gsn  subptr; 

the  subptr->gsn  subptr  =  snl  ptr: 

} 

else 

subptr  =  subptr->gsn_next_genptr; 

} 

while  ((entptr  !=  NULL)  &&  (!in)) 

{ 

if  (strcmp(entptr->en_name,  temp_ptr->name)  ==  FALSE) 

{ 

in  =  TRUE; 

entptr->en_terminal  =  FALSE; 

the  subptr->gsn  num  ent-f— h; 

enl_ptr  =  ent_node_list_alloc(); 

enl  ptr->entptr  =  entptr; 

enl  ptr->next  =  the_subptr->gsn_entptr; 

the  subptr->gsn_entptr  =  enl_ptr; 

} 

else 

entptr  =  entptr->en  next  ent; 

} 

if  (!in)  /*  use  of  undefined  entity  type  or  subtype  */ 

proc  eval  error(  15,temp_ptr->name); 
temp_ptr  =  temp_ptr->next; 

} 

} 
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entity_type_definition 

{ 

if  (the  subptr~>gsn  num  funct  ==0) 

{ 

the  subptr->gsn  ftnptr  =  funct  ptr: 
the_subptr->gsn  num  funct  =  funct  count; 

} 

else  /*  entity  subtype  name  must  be  unique  */ 
proc _ev  al _error (12,  tern p_n ame  id ) ; 
functcount  =  0: 
last_funct_ptr  =  NULL; 

} 

STRING  LP  string  range  RP 


subtype  definition: 

RANGE  enumeration_literal  ELIPSES  enumeration  literal 
integer  range 
float  range 
/*  empty  */ 


incomplete  subtype  declaration: 

SEMICOLON  /*  entity  */ 

{ 

if  (Ifound) 

subptr  =  new  gen  sub  nodeftemp  value); 
else  /*  duplicate  subtype  */ 

proc_eval  error(12,temp_value); 


/ 

/ 

/ 


********************* 

**  dml  statement  **/ 
********************* 


/ 

/ 


dml_statement: 
create_statement 
|  destroy  statement 
move  statement 
|  loop_statement 


dml  statement2: 

assignment_statement 
|  include  statement 
|  exclude_statement 
destroy  statement 
move_statement 
procedure  call 
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create_statement: 

CREATE  NEW 

{ 

kms_ptr->dml_statement_ptr  =  dml  statement  alloc(); 
kms_ptr->dml  statement  ptr->type  =  Create: 
kms_ptr->dml_statement_ptr->dap_expr_ptr  =  NULL; 
kms  ptr->dml  statement  ptr->indexed  comp  ptr  =  NULL; 
kms_ptr->dml_statement_ptr->basic_expr_ptr  =  NULL; 
kms  ptr->dml_statement  ptr->comp  assoc  ptr  =  NULL: 

} 

create_part  SEMICOLON 

{ 

kms_ptr->dml_statement_ptr->comp_assoc_ptr  =  comp_assoc_ptr 

} 


create  part: 

{ 

serror  =  13:  *  duplicate  identifiers  in  list  * 

} 

id  list 

f 

/*  perform  error  checking  and  fill  structure  dap_create_list  */ 
/*  All  functions  for  each  name  id  in  the  list  is  attached  on  */ 
/*  dap_createList  pointed  to  by  kms_ptr->dki_create  */ 
if  (!proc_create_ent_type(db_ptr->fdn_entptr)) 
proc_create_sub_type(db_ptr->fdn_subptr): 

} 

named  ^aggregate 

{ 

build  _req_line_list  ( ) : 

/*  temp  for  program  testing  */ 
req_ptr  =  kms_ptr->dki_req_ptr; 
while  (req_ptr  !=  NULL) 

{ 

printf(n%s\nn,req_ptr->req_line); 
req  ptr  =  req  ptr- >  next; 

} 

} 


named  aggregate: 

LP  component  association_list  RP 
|  /*  empty  */ 

{ 

comp  assoc_ptr  =  NULL; 

} 
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component  association  list: 
component  association 
{ 

kms  ptr->dml  statement  ptr->comp  assoc  ptr  =  new  comp  assoc  ptr; 
comp  assoc  ptr  =  kms  ptr->dml  statement  ptr->comp  assoc  ptr: 
comp  assoc  ptr->next  =  NULL; 

} 

|  component_association_list  COMMA  component_association 

{ 

new_comp_assoc  ptr- > next  =  comp  assoc  ptr; 
comp  assoc  ptr  =  new_comp_assoc_ptr: 

} 


component  association: 

IDENTIFIER 

{ 

/*  check  if  name  id  is  a  valid  attribute  name  */ 
del  ptr  =  kms  ptr->dki  create: 
in  —  FALSE: 

while  ((dcl  ptr  !=  NULL)  &&  ( !in) ) 

{ 

av  ptr  =  del  ptr->av  pair  ptr; 
while  ((av  ptr  !=  NULL)  &&  (!in)) 

{ 

if  (strcmp(av_ptr->ftnptr->fn_name,  $1)  ==  0) 
in  =  TRUE; 
else 

av_ptr  =  av  ptr- > next; 

} 

dcl_ptr  =  del  ptr->next; 

} 

if  (Jin)  f*  invalid  function  name  * / 
proc_eval_error(26,$l); 

else 

{ 

new_comp_assoc_ptr  =  comp  assoc  list  alloc(); 
strcpy(new_comp_assoc_ptr->name,  $1); 
simple_expr_ptr  —  ^(new_comp_assoc_ptr->simple^expr); 
} 

clean_dki_evl_ptr(); 

} 

IMPLY  simple  expr 

{ 

av_ptr->num  value  =  kms  ptr->dki  evl  ptr.num  values; 
av_ptr->valptr  =  kms_ptr->dki_evl_ptr.ev_ptr; 
kms_ptr->dki_evl_ptr.ev  ptr  =  NULL; 

} 
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literal  : 

CHARACTER  STRING 

{ 

literal_type  =  String; 
put_dki_ent_value_list(literal_tvpe,$l); 

} 

!  INTEGER  LITERAL 

{ 

literal_type  =  Integer; 
put_dki_ent_value_list(literal_type,$l); 

} 

FLOATLITERAL 

{ 

iiteral_type  =  Float; 

put _dki_en t _value_Jist (literal  type, $  1 ) ; 

} 

IDENTIFIER  /*  Can  be  Entitv,  GenSub  or  Enumeration  constant  */ 

{ 

if  (search_entity(Sl)  !=  NULL) 
literal_type  =  Entity: 
else  if  (search  gensub($l)  !=  NULL) 
literal  ^tvpe  =  GenSub: 

else 

literal  type  =  Enum; 
put_dki_ent_value_list(literal_tvpe,$l); 

} 

TRUET 

{ 

literal_type  =  Boolean; 

putjiki  ent  value  list  (literal  type,nlf!); 

} 

FALSE_T 

{ 

literal_type  =  Boolean; 
pu  t_dki_ent_value_list  (literally  pe/’O1'); 

} 


r 

Memory  must  be  allocated  before  activating  the  following  rules: 


dap_expr 
simple  expr 
dap_range 
domain 


uses  dap_expr_ptr 
uses  simple  expr  ptr 

uses  dap  range  ptr 
uses  domain  ptr 


Rules  that  allocate  memory  themselves  : 


comp_assco_list 

relation 

basic  expr  list 


returns  comp  assoc  ptr; 
returns  rel  list  ptr 
returns  basic  expr_ptr 
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indexed  component  returns  indexed_comp_ptr 

set  constructor  returns  set_construct_ptr 

function  application  returns  funct_appln_ptr 


*/ 

set  constructor: 

LCB 

{ 

set  construct  ptr  =  set  constructor_alloc(); 
simple  expr_ptr  =  simple_exprl_alloc(): 

} 

end  set  constructor 


end  set  constructor: 
basic  expr_list  RCB 
{ 

set  construct  ptr- > basic  expr  ptr  =  basic _expr_ptr: 
basic  expr  ptr  —  NULL: 

} 

simple  expr  IN  set  constructor  part  WHERE  dap^expr  RCB 
RCB  /*  emptv  or  null  list  */ 

{ 

literal  type  =  String; 

put  dki  ent  value  list  (literal  type/,$NULL,f); 
set_construct_ptr->basic_expr_ptr  =  NULL; 
set  construct  ptr->set  construct2_ptr  =  NULL; 
set  construct  ptr->set  construct3_ptr  =  NULL; 

} 


set  constructor_part: 

{ 

set  construct2_ptr  =  set_construct2_alloc(); 
set  construct  ptr->set  construct2  ptr  =  set_construct2_ptr; 
set  construct2  ptr->simple  exprl  ptr  =  simple_expr_ptr; 
dap_expr_ptr  =  &(set_construct2_ptr->dap_expr_ptr); 

} 

namel 

i  { 

set  constructs  ptr  =  set_construct3_alloc(); 
set  construct_ptr->set_construct3_ptr  =  set_construct3_ptr; 
set  constructs  ptr->simple_exprl_ptr  =  simple_expr_ptr; 
dap  range  ptr  =  &(set  constructs  ptr->dap  range); 
dap_expr_ptr  =  &(set_construct3  _ptr->dap_expr_ptr); 

} 

dap  range 


basic  expr  : 
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literal 

{ 

new_basic_expr  ptr  =  basic  expr  list  alloc (); 

strcpy(new'_basic_expr_ptr->lit_array,kms_ptr->dki_evl_ptr.ev_ptr) 
new  _basic_expr_ptr-> indexed  comp  ptr  =  NULL; 
new_basic_expr_ptr->funct  appln  ptr  =  NULL; 

> 

j  indexed  component 
{ 

new_basic_expr_ptr  =  basic  expr  list  alloc (); 

new  basic _expr_ptr-> indexed  comp  ptr  =  indexed _comp_ptr; 

new_basic_expr_ptr->funct  _appln_ptr  =  NULL; 

strcpy(new_basic_expr_ptr->lit_array,™T): 

indexed  comp  ptr  =  NULL; 

} 

function  application 

{ 

new  basic _expr_ptr  =  basic  expr_list_alloc(); 

new'  basic  expr  ptr->funct  appln  ptr  =  funct  appln  ptr; 

new  basic  expr  ptr->indexed_comp_ptr  =  NULL; 

strcpy(new  basic  expr  ptr- > lit  array.™’): 

funct  appln  ptr  =  NULL; 

} 

basic _expr_list  : 
basic  expr 
{ 

new'  basic  expr  ptr->next  =  NULL; 
basic  _expr_ptr  =  new_basic_expr_ptr; 

}  "  _ 

basic  expr_list  COMMA  basic_expr 

{ 

new  basic  expr  ptr->next  =  basic_expr_ptr; 
basic_expr_ptr  =  new_basic_expr_ptr; 

} 

dap_expr: 

relation 

{ 

rel_list_ptr->next  =  NULL; 
dap  expr  ptr->rel_list_ptr  =  rel_list_ptr; 
dap  expr  ptr->relation_type  =  Relation; 
rel_list_ptr  =  NULL; 

} 

|  rel_and_list 
rel_or_list 


rel  and  list: 
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relation 

{ 

dap  expr  ptr->rel  list  ptr  =  rel  list  ptr; 
rel_list  ptr  =  NULL; 

}  " 

AND  relation 

{ 

rel_list_ptr->next  =  NLILL; 

dap_expr_ptr->rel_list_ptr->next  =  rel_list_ptr; 
dap  expr  ptr->relation  type  =  AndRelation; 
rel  list  ptr  =  NULL; 

} 

rel_and_list  AND  relation 
{  " 

rel  list  ptr->next  =  dap  expr  ptr->rel  list  ptr; 
dap  expr  ptr- > rel  list  ptr  =  rel  list  ptr; 
re  Mist  ptr  =  NULL; 

} 


rel  or  list: 
relation 


{ 

dap  expr  ptr->rel  list  ptr  =  rel  list  ptr; 
rel_list  ptr  =  NULL; 

} 

OR  relation 

{ 

rel_list  ptr->next  =  NULL; 

dap  expr  ptr->rel  list  ptr->next  =  rel  list  ptr; 
dap_expr_ptr->relation_type  =  OrRelation; 
rel _ list  ptr  =  NULL; 

} 

|  rel_and_list  OR  relation 
{  " 

rel_list_ptr->next  =  dap_expr_ptr->rel_list_ptr; 
dap_expr_ptr->rel_list_ptr  =  rel_list_ptr; 
rel_list_ptr  =  NULL; 

} 


relation: 

{ 

/*  This  procedure  is  added  to  avoid  reduce/reduce  conflicts  in  YACC  */ 
/*  memory  allocation  for  rel_list_ptr,  simple  expr  ptr  */ 

/*  are  performed  here  */ 

rel  list  ptr  =  relation  list  alloc (); 
simple_expr_ptr  =  simple_exprl_alloc(); 

} 

relation2; 


160 


relation2: 
simple  expr 
{  " 

rel_list_ptr->simple  exprl  ptr  =  simple  expr  ptr: 
simple  expr  ptr  =  NULL: 

} 

simple_expr  rel  op 

{ 

rel  _list  j>tr->simple_expr2_ptr  =  simple_expr2_alloc(); 
rel_list_ptr->simple_expr2_ptr->first_expr  =  simple  expr  ptr: 
re]_list_ptr->simple_expr2_ptr->rel_operator  =  rel_operator: 
simDle_expr_ptr  =  simple^exprl  alloc(); 

} 

simple  expr 

{ 

reMist_ptr->simple_expr2  ptr->second  expr  =  simple  expr  ptr  : 
simple  expr  ptr  =  NULL: 

> 

simple  _expr  in  op 

{ 

rel_list_ptr->simple_expr3_ptr  =  simple_expr3  alloc(); 
rel_list _ptr->simple  expr 3  ptr->simple  expr  =  simple  expr  ptr: 
simple_expr_ptr  =  NULL; 

rel_list_ptr->simple_expr3  ptr- > in  op  =  in  op: 
dap_range_ptr  =  dap_range  info  alloc(); 

rel_list_ptr->simple  expr3  ptr->dap  range  =  dap  range  ptr  : 

} 

dap  range 

simple_expr  in_op  IDENTIFIER 

{ 

if  ((search  entity  (S3)  !=  NULL)  ||  (search_gensub($3)  !=  NULL)) 

{ 

rel_list_ptr->simple_expr4_ptr  =  simple_expr4_alloc(); 
rel  list  ptr->simple_expr4_ptr->simple_expr  =  simple  expr_ptr; 
rel  list  ptr->simple_expr4_ptr->in_op  =  in_op; 
strcpy(rel  list  ptr->simple_expr4_ptr->name_id,  $3); 
simple_expr  ptr  =  NULL: 

} 

else 

proc  eval  error(  15,83); 

} 

5 

simple_expr: 

literal 

{ 

strcpy (simple_expr_ptr- >lit_array ,  kms  ptr- >dki_evl_ptr.ev_ptr) ; 
simple  expr_ptr->set_construct_ptr  =  NULL; 
simple  expr  ptr->indexed  comp  ptr  =  NULL: 
simple_expr_ptr->funct_appln_ptr  =  NULL; 

} 
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set_constructor 

{ 

simple  expr  ptr->set  construct_ptr  =  set_construct_ptr; 
simple  expr  ptr->indexed  comp  ptr  =  NULL; 
simple_expr_ptr->funct_appln_ptr  =  NULL; 
strcpy(simple_expr_ptr->lit_array, 

} 

|  indexed_component 

{ 

simple  expr  ptr->indexed  comp  ptr  =  indexed  comp  ptr: 
simple_expr  ptr->set_construct_ptr  =  NULL; 
simple  expr  ptr->funct  appln  per  =•  NULL; 
strcpy(simple_expr_ptr->lit  arrav,  ,M!); 

} 

|  function_application 

{ 

simple  expr  pcr->funct  appln  ptr  =  funct  appln  ptr; 
simple_expr_ptr->indexed_comp_ptr  =  NULL: 
simple  expr  ptr->set  construct  ptr  —  NULL; 
strcpvfsimple  expr  pt r- > lit  array,  ,Mf); 

} 

function  application: 

{ 

funct  appln  ptr  =  funct  appln  alloc(); 

} 

function  name  LP  expr_types  RP 


function  name: 

COUNT 


{ 

funct  appln  ptr->type  =  COUNT; 

} 

SUM 


{ 

funct_appln_ptr->type  =  SUM: 

} 

AVG 


{ 


funct_appln_ptr->type  =  AVG; 

} 

|  MIN 


{ 

funct_appln_ptr->type  =  MIN; 

} 

|  MAX 


{ 


funct  appln  ptr->type  =  MAX; 

} 


/*  use  token  value  */ 
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exprtypes  : 

IDENTIFIER 

{ 

if  ( (search  _entity(  Si)  !=  NULL)  ||  (search_gensub(Sl)  !=  NULL)) 
strcpy(funct_appln_ptr->name_id,  $1); 

else 

proc_eval  error(l5,$l); 

} 

set  constructor 
{  " 

funct_appln_ptr->set_construct_ptr  =  set_construct_ptr; 
funct_appln_ptr->indexed_comp_ptr  =  NULL; 
strcpy(funct _appln_ptr->name_id,  ,m); 
set  construct  ptr  =  NULL; 

} 

I  indexed  component 

{ 

funct_appln_ptr->indexed_comp_ptr  =  indexed_comp_ptr; 
funct  appln  ptr->set  construct  ptr  =  NULL; 
strcpy(funct_appln_ptr->name_id,  ,,n); 
indexed  comp  ptr  =  NULL; 

} 

indexed_component: 
dml  name  id  LP  IDENTIFIER  RP 
{ 

/*  check  for  the  innermost  IDENTIFIER  */ 
indexed  comp  ptr  =  indexed  component  alloc(); 
if  ((entptr  =  search_entity($3))  !=  NULL) 
indexed_comp_ptr->type  —  Entity; 
else  if  ((subptr  =  search_gensub($3))  !=  NULL) 
indexed  _comp_ptr->  type  =  GenSub; 
else  if  ((loop  info  ptr  !=  NULL)  && 

(strcmp($3,  loop_info_ptr->loop_parameter)  ==  0)) 

{ 

indexed  comp  ptr->type  =  LoopParameter; 
entptr  =  loop_info_ptr->entptr; 
subptr  =  loop  info  ptr->subptr; 

} 

else  /*  undeclared  entity  type,  subtype  or  loop  parameter  */ 

{ 

proc_eval_error(27,  $3); 
break; 

} 

strcpy(indexed  comp  ptr->name_id,  $3); 
strcpy(indexed_comp_ptr-> parent  name,  ,in); 
indexed  _comp_ptr->  next  =  NULL; 
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/*  check  for  each  name  in  kms_ptr->dki_temp  ptr  */ 
temp_ptr  =  kms_ptr->dki_temp_ptr; 
while  (temp_ptr  !=  NULL) 

{ 

/*  check  if  temp  ptr->name  is  a  valid  function  */ 
new_indexed_comp_ptr  =  indexed_component_alloc(); 
new_indexed_comp_ptr->next  =  indexed_comp_ptr; 
indexed  comp  ptr  =  new  indexed_comp  ptr; 
strcpy(indexed_comp_ptr->name_id,  temp_ptr->name); 

funct  ptr  =  search  funct(indexed  comp  ptr,  entptr,  subptr); 
if  (funct_ptr  ==  NULL)  /*  invalid  function  name  */ 
proc_eval_error(26,  temp_ptr->name); 
else  if  (temp_ptr->next  !=  NULL) 

{ 

/*  check  if  it  is  entity  type  or  subtype  */ 
entptr  =  funct  ptr->fn  entptr; 
subptr  =  funct  ptr->fn  subptr; 
if  (entptr  !=  NULL) 

indexed_comp_ptr->type  =  Entity; 
else  if  (subptr  !=  NULL) 

indexed  comp  ptr->type  =  GenSub; 

else 

{ 

proc  eval  error(  15, temp  ptr*>name); 
break: 

} 

} 

temp  ptr  =  temp_ptr->next; 

} 

} 

dml_name_id  LP  indexed_component  RP 

dml  name  id  :  IDENTIFIER 

r 

/*  stack  IDENTIFIERS  in  kms_ptr->dki_temp_ptr  */ 
temp  ptr  =  ident  list_alloc(); 
strcpy(temp_ptr->name,  $1); 
temp_ptr->next  =  kms_ptr->dki_temp_ptr; 
kms_ptr->dki_temp_ptr  =  temp_ptr; 

} 

includestatement: 

INCLUDE 

{ 

kms_ptr->dml_statement_ptr  =  dml_statement_alloc(); 
kms_ptr->dml_statement_ptr->type  =  Include; 

kms_ptr->dml_statement_ptr->dap^expr_ptr  =  dap_expr_info_alloc(); 

kms_ptr->dml_statement_ptr->basic_expr_ptr  =  NULL; 

dap  expr  ptr  =  kms  ptr->dml  statement_ptr->dap  expr  ptr; 


164 


} 

dap  expr  INTO  indexed  component  SEMICOLON 

{ 

kms_ptr->dml_statement_ptr->indexed  comp  ptr  =  indexed  comp  ptr; 

} 


exclude  statement: 

EXCLUDE 

{ 

kms _ptr->dml_statement_ptr  =  dml  statement  alloc(); 
kms  _ptr->dml_statement_ptr->type  =  Exclude; 

kms_ptr->dml_statement  ptr->dap  expr  ptr  =  dap  expr  info  alloc(); 

kms_ptr->dml_statement_ptr->basic  expr  ptr  =  NULL; 

dap  expr  ptr  =  kms_ptr->dml_statement_ptr->dap  expr_ptr; 

} 

dap  expr  FROM  indexedcomponent  SEMICOLON 

{ 

kms_ptr->dml  statement  ptr->indexed  comp  ptr  =  indexed  comp  ptr: 

} 


destroy  statement: 

DESTROY 

{ 

kms_ptr->dml_statement_ptr  =  dml_statement_alloc(); 
kms  ptr->dml  statement  ptr->type  =  Destroy; 

kms_ptr->dml_statement_ptr->dap_expr_ptr  =  dap_expr_info_alloc(); 
kms  ptr->dml  statement  ptr->indexed  comp  ptr  =  NULL; 
kms  ptr->dml  statement  ptr->basic  expr  ptr  =  NULL; 
dap  expr  ptr  =  kms  ptr->dml  statement  ptr->dap  expr  ptr: 

} 

dap  expr  SEMICOLON 


assignment_statement: 
indexed_component  ASSIGN 
{ 

kms  ptr->dml  statement_ptr  =  dml_statement_alloc(); 

kms  ptr->dml  statement  ptr->type  =  Assignment; 

kms  ptr->dml  statement_ptr->basic_expr_ptr  =  NULL; 

kms  ptr->dml  statement  ptr->indexed  comp  ptr  =  indexed  comp_ptr; 

kms  ptr->dml_statement  ptr->dap_expr_ptr  =  dap  expr  info  alloc (); 

dap  expr  ptr  =  kms  ptr->dml  statement  _ptr->dap_expr_ptr; 

} 

dap_expr 


move  statement: 
MOVE 
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{ 

kms_ptr->dml_statement_ptr  =  dml_statement_alloc(); 
kms  ptr->dml  statement  ptr->type  =  Move; 

kms  ptr->dml_statement_ptr->dap_expr_ptr  =  dap_expr_info_alloc(); 
kms  ptr->dml  statement  ptr->indexed_comp_ptr  =  NULL; 
kms  ptr->dml_statement  _ptr->basic_expr_ptr  =  NULL; 
dap  expr  ptr  =  kms  ptr->dml  statement_ptr->dap_expr  ptr; 

} 

dap  expr  move  statement2  SEMICOLON 


move  statement2  : 
move_from 
move  to 

I  move  from  move  to 


movefrom: 

FROM  namel  list 


move_to: 

INTO  create  part 


procedure_call: 

{ 

kms  ptr->dml  statement  ptr  =  dml  statement_alloc(); 
kms  ptr->dml_statement_ptr->basic_expr_ptr  =  basic_expr_ptr; 
kms  ptr->dml  statement_ptr->dap_expr_ptr  =  NULL; 
kms  ptr->dml  statement  ptr->indexed  comp  ptr  =  NULL; 

} 

procedure  name  LP  basic  expr  list  RP  SEMICOLON 


procedure  name: 

PRINT  ~ 

{ 

kms  ptr->dml  statement_ptr->type  =  Print; 

} 

|  PRINT  LINE 

{ 

kms_ptr->dml_statement_ptr->type  =  PrintLine; 

} 


loop  statement: 

real_loop  SEMICOLON 

|  IDENTIFIER  COLON  real  loop  IDENTIFIER  SEMICOLON 
|  IDENTIFIER  COLON  real  loop  SEMICOLON 
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real  loop: 

{ 

loop_info  ptr  =  loop  info  alloc(); 
kms_ptr->loop_info_ptr  =  loop_info  ptr: 
} 

iteration_clause  basic  loop  end  loop 


iteration_clause: 
iteration  bodv 
{ 

loop_info  ptr->order  comp  ptr  =  NULL: 

} 

iteration_body  BY  order  component  list 


iteration  body 
for  clause  IDENTIFIER 
{ 

strcpv  (loop_info_ptr->loop_parameter,  $2); 
domain_ptr  =  &(loop  info  ptr->domain); 

} 

IN  domain 


for_clause: 

FOR 

|  FOR  EACH 


domain: 

loop_expr 
{  " 

domain  _ptr->dap_expr_ptr  =  NULL; 

} 

|  loop_expr  WHERE 

{ 

dap_expr_ptr  =  dap_expr_info_alloc(); 

domain  ptr->dap  expr  ptr  =  dap_expr_ptr; 

} 

dap_expr 


loop_expr: 

indexed  ^component 

{ 

domain  ptr->indexed_comp_ptr  =  indexed_comp_ptr; 
strcpy(domain_ptr->name,MM); 

} 

|  IDENTIFIER 

{ 
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/*  IDENTIFIER  must  be  entity  type  or  subtype  */ 
loop_info_ptr->entptr  =  search_entity($l); 
loop  info  ptr->subptr  =  search  gensub(Sl); 

if  ((loop_info_ptr->entptr  !=  NULL)  }j  (loop_info_ptr->subptr  !=  NULL)) 

{ 

domain  ptr->indexed  comp  ptr  =  NULL; 
strcpy(domain_ptr->name,$l): 

} 

else 

proc_eval_error(  1 5,  $  1 ) ; 

} 

order  component  list: 
ordercomponent 
{ 

order  comp  ptr->next  =  NULL; 

loop  info  ptr- > order _comp_ptr  =  order_comp_ptr; 

order  comp  ptr  —  NULL; 

} 

order  component  list  COMMA  order  component 

{ 

order_comp_ptr->next  =  loop_info_ptr->order_comp_ptr; 
loop_info_ptr->order_comp_ptr  =  order_comp_ptr; 
order  comp  ptr  =  NULL; 

} 


order  component: 

{  " 

order  comp  ptr  =  order  comp  list  alloc(); 

} 

sort  order  indexed_component 
{  ' 

order_comp_ptr->indexed_comp_ptr  =  indexed_comp_ptr; 
indexed  comp  ptr  =  NULL; 

} 


sortorder: 

ASCENDING 

{ 

order  comp _ptr->sort_order  =  ASCENDING; 

} 

|  DESCENDING 

{ 

order_comp_ptr->sort  order  =  DESCENDING; 

} 

|  /*  empty  */ 

{ 

order  comp  ptr->sort  order  =  ASCENDING; 
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} 


basic  loop; 

sequenceof  statements 
LOOP  sequence  of  statements 


sequence  of  statements: 
dml_statement2 
{ 

dml_stateinent2_list_ptr  =  dml  statement2  list  allocQ; 

dml_stacement2_list_ptr->dml_statement2_ptr  =  kms_ptr->dml_statement_ptr 
dml_statement2  list  ptr->next  =  NULL; 

loop_info_ptr->dml_statement2_list_ptr  =  dml_statement2_list_ptr; 
kms_ptr->dml_statement  ptr  =  NULL: 

} 

seauenceof  statements  dml  statement2 
dml  statement2  list  ptr  =  dml  statement2  list  alloc(): 

dml_statement2  list  ptr->dml  statement2  ptr  —  kms  ptr->dml  statement  ptr 
dml  statement2  list  ptr->next  =  loop  info  ptr->dml  statement2  list _ptr: 
loop  info  ptr->dml  statement2  list  ptr  =  dml  statement2  list  ptr: 
kms  ptr->dml  statement  ptr  =  NULL: 

} 


end_loop: 

END 

|  END  LOOP 


namel_list:  namel 

namel  list  COMMA  namel 


namel:  name_id 

name  id  DOT  name  id 


rel_op: 

EQ 

{ 

rel_operator  =  EQ: 

} 

NE 


{ 

rel_operator  -  NE; 

} 


/*  use  token  value  */ 
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LT 

{ 

rel  operator  =  LT; 

} 

LE 

{ 

rel  operator  =  LE; 

} 

|  GT 

{ 

rel_operator  =  GT; 

} 

|  GE 

{ 

rel  operator  =  GE: 

} 


in  op: 

IN 

{ 

inop  =  INOp; 

} 

I  NOT  IN 

{ 

in_op  =  NINOp; 
}  ” 


dap  range: 

INTEGERLITERAL  ELIPSES  INTEGERLITERAL 

{ 

dap  range  ptr->range  type  =  Integer; 
strcpy(dap_range_ptr-> first  value,  $1); 
strcpv(dap  range  ptr->second  value,  $3); 

} 

|  FLOATLITERAL  ELIPSES  FLOATLITERAL 

{ 

dap_range_ptr->range_type  =  Float; 
strcpy(dap_range_ptr->  first  _value,  $1); 
strcpy(dap  range  ptr->second  value,  $3); 

} 


%% 


f_kernel_mapping_system  () 

{ 

reset  variables(); 
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/*  alloc  and  init  dap  kms  info  struct  */ 
kms_ptr  =  dap_kms_info  alloc (); 
kms_ptr->dki_temp_ptr  =  NULL; 
kms_ptr->dki_id_ptr  =  NULL: 
kms  ptr->dki  overfirst  ptr  =  NULL; 
kms_ptr->dki_ev_ptr  =  NULL; 
kms  ptr->dki  create  =  NULL; 
kms_ptr->dki_req_ptr  =  NULL; 
kms_ptr->dki_cel_ptr  =  NULL; 
kms_ptr->dki_create_ovrptr  =  NULL; 
if  (cuser_dap_ptr->ui_li_type.li_dap.dap_operation  !=  CreateDB) 

{ 

cuser_dap_ptr->ui_li  type.li  dap. dpi  kms  data.ki  d  kms  =  kms  ptr; 
dml_req_len  =  cuser_dap_ptr->ui_li_type.li  dap.dpi_dml_tran. 

ti  curr  req.ri  dap  req->dri  req_len; 

r  ~ 

dml  info  ptr  =  &(cuser  dap  ptr->ui  li  type.li  dap); 
strcpy (db.dml_info  ptr->dpi  curr  db.cdi_dbname); 

*  , 

} 

mem  ptr  =  cuser  dap  ptr->ui  ii  type.li  dap.dpi_dml_tran. 

ti  curr  req.ri  dap  req->dri_req: 

#ifdef  DYacFlag 

printf  (’’calling  yyparse  \n”): 

#endif 
yyparse( ); 

#ifdef  DYacFlag 

printf  (’’returning  from  yyparse  \n”); 

#endif 

/*  reset  all  boolean  and  counter  variables  */ 
kms  info  cleanup(); 

#ifdef  DYacFlag 

printf  (’’Exit  parser  \n”); 

#endif 

} 

yyerror  (s) 
char  *s; 

{ 

if  (cuser  dap  ptr->ui  li_type.li_dap.dap_operation  ==  CreateDB) 

{ 

cuser  dap  ptr->ui  li  type.li_dap.dap_error  =  ErrCreateDB; 
printf  (’’Correct  error  before  re-submitting  that  DB  Description  file  \n”); 
/*  free  all  the  malloc’d  variables  in  the  current  schema  */ 
schema  cleanupQ; 

} 

else 
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{ 

cuser  dap_ptr->ui_li_type.li_dap.dap_error  =  ErrReqTran; 
kms  info_cleanup(); 

} 


/*  reset  all  boolean  and  counter  variables  */ 

reset_variables(); 

printf  ("\n%s  \n",  s); 

} 


schema_cleanup() 

{ 

} 

kms  info  cleanup() 

{ 

} 

reset  variables() 

{ 

last  funct  ptr  =  NULL: 

} 


2.  FILE  kms.c 


^include  <stdio.h> 
^include  <strings.h> 
^include  "flags. def" 
^include  "licommdata.def" 
^include  "struct. def" 
^include  "dap. ext" 
^include  "kms. ext" 


proc  eval  error(num,str  in) 
int  num; 
char  *str  in; 


{ 

switch  (num) 

{ 

case  1:  printf("Error  -  duplicate  constant  name:"); 
break; 

case  2:  printf("Error  -  duplicate  non  entity  type  name:"); 
break; 

case  3:  printf("Error  -  duplicate  entity  type  name:"); 
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break; 

case  4:  printf(MError  -  cannot  create  new  type.  Base  type  undefined:”); 
break; 

case  5:  printf(MError  -  attribute  name  must  be  unique:1'); 
break; 

case  6:  printf(n Error  -  undeclared  function  identifier:11) ; 
break; 

case  7:  printf(MError  -  nonentity  subtype  name  must  be  unique:"); 
break; 

case  8:  printf(" Error  -  incompatible  types  must  be  nonentity  type:"); 
break; 

case  9:  printf( "Error  -  entity  type  must  have  been  declared  previously:"); 
break: 

case  10:  printf ("Error  -  undeclared  subtype  name:"); 
break; 

case  11:  printf("Error  -  incompatible  types  must  be  entity  type:"); 
break: 

case  12:  printf) "Error  -  duplicate  entity  subtype  name;"); 
break: 

case  13:  printf("Error  -  duplicate  identifier  in  list:"); 
break: 

case  14:  printf("Error  -  overlap  type  must  be  terminal  subtype:"): 
break; 

case  15:  printf( "Error  -  undefined  entity  type  or  subtype:"); 
break: 

case  16:  printf("Error  -  incompatible  derived  type  declaration:"); 
break; 

case  17:  printf("Error  -  incompatible  subtype  declaration:"); 
break; 

case  18:  printf("Error  -  incompatible  assignment:"); 
break; 

case  19:  printff "Error  -  identifier  must  be  previously  declared:"); 
break; 

case  20:  printf(" Error  -  overlap  types  must  have  same  base  type:"); 
break; 

case  21:  printf("Error  -  non-terminal  type  entity  in  create:"); 
break; 

case  22:  printff  "Error  -  more  than  one  entity  type  name  in  create:"); 
break; 

case  23:  printf) "Error  -  no  default  value  for  enumeration  type  attribute:"); 
break; 

case  24:  printf) "Error  -  value  must  be  declared  for  entity  type  attribute:"); 
break; 

case  25:  printf("Error  -  overlap  constraint  not  declared:"); 
break; 

case  26:  printff  "Error  -  invalid  function  name:"); 
break; 

case  27:  printf("Error  -  undefined  entity  type,  subtype  or  loop  parameter:"); 
break; 

default:  printf("Error  -  error  code:  %d:",  num); 
break; 
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}  /*  end  switch  */ 

printf(,?  %s\nn,  str_in); 

} 

put  dki_ent  non(enn  type,  str  val) 

char  enn_type; 
char  *str_val; 

{ 

struct  ent_value  *ent_value_alloc(); 
char  *var_str_alloc(); 

kms_ptr->dki_ent_non.enn_type  =  enn_type: 
switch  (enn  type) 

{ 

case  T  :  kms  ptr->dki  ent  non.enn_total_length  —  FLTLength; 
break: 

case  ’b'  : 

case  V  :  kms  ptr->dki  ent  non. enn  total  length  =  INTLength; 
break: 

default  :  : 

} 

kms  ptr->dki  ent  non. enn  range  =  FALSE: 
kms  ptr->dki  ent_non.enn_num_values  =  1: 
kms  ptr->dki  ent  non. enn  constant  =  TRUE: 
kms  ptr->dki  ent  non. enn  value  —  ent  value  alloc(); 
kms_ptr->dki_ent_non.enn_value->ev_value  = 
var  str  alloc(  strlen(str_val)  +  1  ); 
strcpy(kms  ptr->dki  ent  non. enn  value->ev  value,  str  val); 
kms_ptr->dki_ent_non.enn_value->next  =  NULL; 

} 


put_dki_funct(fn_type) 
char  fn  type; 


{ 

kms  ptr->dki  funct.fn  type  =  fn  type; 
switch  (fn_type) 

{ 

case  T  :  kms_ptr->dki_funct.fn_total  length  =  FLTLength; 
break; 

case  ’b’  : 

case  T  :  kms_ptr->dki_funct.fn_total_length  =  INTLength; 
break; 

default  :  kms  ptr->dki  funct.fn  total  length  =  0; 
break; 

} 

kms  ptr->dki  funct.fn  range  =  FALSE; 
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kms_ptr->dki_funct.fn_set  =  FALSE: 
kms_ptr->dki_funct.fn  num  value  =  0; 
kms_ptr->dki_funct.fn  value  =  NULL; 
kms_ptr->dki_funct.fn_entptr  =  NULL; 
kms_ptr->dki  funct.fn  subptr  =  NULL; 
kms_ptr->dki_funct.fn_nonentptr  =  NULL; 
kms_ptr->dki_funct.fn  nonsubptr  =  NULL; 
kms_ptr->dki_funct.fn_nonderptr  =  NULL; 
kms_ptr->dki  funct.next  =  NULL; 
kms_ptr->dki_funct.fn_entnull  =  FALSE; 
kms_ptr->dki_funct.fn  unique  =  FALSE: 

} 

add_ent_non  node(enn  name) 
char  enn_name[ENLength  -r  lj; 


{ 

struct  fun  dbid  node  *db  ptr; 

struct  ent_non_node  *entnon_node_alloc(), 

*enn_ptr; 

db  ptr  =  cuser_dap_ptr->ui_li  type.li  dap. dpi  curr  db.cdi  db.dn  fun; 
enn  ptr  =  ent  non  node  alloc(); 
strcpy(enn_ptr->enn_name,  enn  name); 
enn_ptr->enn_type  =  kms_ptr->dki_ent_non.enn_type; 
enn_ptr->enn  total  length  =  kms  ptr->dki  ent  non. enn  total  length; 
enn_ptr->enn_range  =  kms_ptr->dki_ent_non.enn_range; 
enn_ptr->enn  num  values  =  kms_ptr->dki  ent  non. enn  num  values; 
enn_ptr->enn_value  =  kms  _ptr->dki_ent_non.enn_value; 
kms_ptr->dki_ent_non.enn_value  =  NULL; 

enn  ptr->enn  constant  =  kms  ptr->dki  ent  non. enn  constant: 
enn_ptr->enn_next_node  =  db_ptr->fdn  nonentptr; 
db  ptr->fdn  nonentptr  =  enn  ptr; 
db_ptr->fdn_num_nonent++; 

} 


struct  gen  sub  node  *new  gen  sub  node(temp  value) 
char  temp  value  ENLength  +  lj; 

{ 

struct  fun  dbid  node  *db  ptr; 

struct  gen_sub_node  *gen_sub_node_alloc(), 

*  gen  ptr; 

db  ptr  =  cuser  dap  ptr->ui  li  type.li  dap. dpi  curr  db.cdi  db.dn  fun; 
gen_ptr  =  gen  sub_node_alloc(); 
strcpy(gen  ptr->gsn  name,  temp_value); 
gen  ptr->gsn  num_funct  =  0; 
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gen  ptr->gsn_terminal  =  TRUE; 
gen  ptr->gsn_entptr  =  NULL; 
gen  ptr->gsn  num  ent  =  0; 
gen  ptr->gsn_ftnptr  =  NULL; 
gen  ptr->gsn  subptr  =  NULL; 
gen_ptr->gsn_num_sub  =  0; 

gen  ptr->gsn_next  genptr  =  db_ptr->fdn  subptr; 
db  ptr->fdn_subptr  =  gen__ptr; 
db_ptr->fdn_num_gen^-  +  ; 
return  ( gen  _ptr); 

} 


compare_non_node_type( temp  value,  serror) 

char  temp  valuejENLength  l]; 
int  serror; 


struct  fun  dbid  node  *db_ptr; 
struct  ent  non  node  *enn  ptr; 
struct  sub  non  node  *snn_ptr; 
struct  der_non_node  *dnn_ptr; 
int  in; 

db  ptr  =  cuser  dap  ptr->ui  li  type.li  dap. dpi  curr  db.cdi  db.dn_fun; 
enn  ptr  =  db  ptr->fdn  nonentptr; 
snn_ptr  =  db_ptr->fdn_nonsubptr; 
dnn  ptr  =  db  ptr->fdn  nonderptr; 

in  =  FALSE; 

while  ((ennptr  !=  NULL)  &&  ( ! in) ) 

{ 

if  (strcmp(enn_ptr->enn_name,  temp_value)  ==  FALSE) 

{ 

in  =  TRUE; 

if  (enn  ptr->enn_type  !=  kms_ptr->dki_ent_non.enn_type) 
proc_eval_error(serror,temp_value); 

} 

else 

enn  ptr  =  enn  ptr->enn  next  node; 

} 

while  ((snn_ptr  !=  NULL)  &&  (!in)) 

{ 

if  (strcmp(snn  ptr->snn  name,  temp  value)  ==  FALSE) 

{ 

in  =  TRUE; 

if  (snn_ptr->snn_type  !=  kms_ptr->dki_ent_non.enn_type) 
proc_eval_error(serror,temp_value); 

} 
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else 


snn  _ptr  =  snn_ptr->snn_next_node: 

} 

while  ((dnn_ptr  !=  NULL)  kk  (lin)) 

{ 

if  (strcmp(dnn_ptr->dnn  name,  temp  value)  ==  FALSE) 

{ 

in  =  TRUE: 

if  (dnn_ptr->dnn_type  !=  kms_ptr->dki_ent_non.enn_tvpe 
proc_evai_error(serror,temp  value): 

} 

else 

dnn_ptr  =  dnn  ptr->dnn  next  node: 

} 

if  (lin) 

proc_eval_error(serror.temp  value): 

} 

add  range  non  node  enn  type.  strl.  str2) 

char  enn  type: 
char  xstrl.  xstr2: 

{ 

struct  ent_value  xent_value_alloc() . 

xentval_ptr; 
char  xvar_str_alloc(): 

/*  update  kms  info  x 

kms  ptr->dki  ent  non. enn  type  =  enn  type: 
switch  (enn_tvpe) 

{ 

case  T  :  kms  ptr->dki  ent  non. enn  total  length  =  FLTLength: 
break: 

case  T  :  kms  ptr->dki  ent  non. enn  total  length  =  INTLength: 
break: 

} 

kms  ptr->dki_ent_non.enn_range  =  TRUE: 
kms  ptr->dki  ent  non.enn_num_values  =  2: 
kms  ptr->dki  ent_non.enn_constant  =  FALSE; 

/x  create  value  node  for  first  integer  */ 

kms  ptr->dki  ent  non.enn_value  =  ent_value_alloc(); 
kms_ptr->dki_ent_non.enn_value->ev_value  = 

var  str^allocf  strlen(strl)  —  l); 
strcpy(kms_ptr->dki_ent_non.enn_value->ev_value,  strl); 

/x  create  value  node  for  second  integer  x/ 
entval_ptr  =  ent_value_alloc(); 
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entval_ptr->ev_value  =  var_str_alloc(  strlen(str2)  -r  1); 
strcpy (entval  ptr->ev  value.  str2); 
entval_ptr->next  =  NULL; 

kms_ptr->dki_ent_non.enn_value->next  =  entval_ptr; 

} 

free_id_list() 

{ 

struct  ident  list  *ident_ptr.  • 

*next  ident  ptr; 

ident_ptr  =  kms_ptr->dki_id_ptr: 
while  (ident_ptr  !=  NULL  ) 

{ 

next_ident_ptr  =  ident_ptr->next; 

free(ident_ptr): 

ident  ptr  =  next  ident  ptr; 

} 

kms  ptr->dki  id  ptr  =  NULL: 

} 

free  temp  list ( ) 

{ 

struct  ident  list  *ident_ptr, 

*  next  _ident  ptr; 

identptr  =  kms_ptr->dki  temp  ptr; 
while  (ident_ptr  !=  NULL  ) 

{ 

next  ident  ptr  =  ident  ptr->next; 

free(ident_ptr); 

identptr  =  next_ident_ptr; 

} 

kms  _ptr->dki_temp_ptr  =  NULL; 

} 

free_namel_list() 

{ 

struct  ident_list  *ident_ptr, 

*next  ident  ptr; 

ident_ptr  =  kms_ptr->dki  namel_ptr; 
while  (ident_ptr  !=  NULL  ) 

{ 

next  ident  ptr  =  ident  ptr->next; 

free(ident_ptr); 

ident  ptr  =  next  ident  ptr; 
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} 

kms_ptr->dki  namel  ptr  =  NULL; 

} 


find_base_type(genptr,  base  name) 

struct  gen_sub_node  *genptr; 
char  *base  name; 


{ 

if  (genptr->gsn_subptr  !=  NULL) 

find_base_type(genptr->gsn_subptr->subptr,  base_name); 
else  if  (genptr->gsn_entptr  !=  NULL) 

strcpy(base_name,  genptr->gsn  entptr->entptr->en  name); 
else 

strcpyfbase  name,  genptr->gsn  name): 

} 


3.  FILE  :  dml.c 


^include  <stdio.h> 
^include  <strings.h> 
^include  <ctype.h> 
^include  "flags. deP 
^include  "licommdata.def" 
^include  "struct. def" 
^include  "dap. ext" 
^include  "kms.ext" 


proc_create_ent_type(entptr) 
struct  ent  node  *entptr; 


{ 

struct  dap_create  list  *dap_create_list_alloc(); 
struct  dap  av  pair  list  *build  funct  av  pair(), 

*build_key_av_pair(), 

*av_ptr; 

struct  ident  list  *temp_ptr; 
int  in; 

#ifdef  EnExFlag 

printf( "Enter  proc_create_ent_type\n"); 

£endif 

/*  Check  if  first  name_id  is  entity  type  */ 
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temp  ptr  =  kms_ptr->dki_temp_ptr; 
in  =  FALSE; 

while  ((entptr  !=  NULL)  &&  ( !in ) ) 

{ 

if  (strcmp(entptr->en  jiame,  temp_ptr->name)  ==  FALSE) 
in  =  TRUE; 
else 

entptr  =  entptr->en_next_ent; 

} 

if  (in) 

{ 

if  (entptr->en_terminal  ==  FALSE) 

/*  must  be  terminal  type  for  create  */ 
proc  eval  error(21,temp  ptr->name); 

else  if  (temp_ptr->next  !=  NULL) 

not  more  than  one  name  in  list  when  creating  entity  type  */ 
proc_eval_error(22.temp_ptr->name): 

else  /*  build  create  ent  list  *  ' 

{ 

free_dki_create( ) ; 

kms  ptr->dki  create  =  dap  create  list _ alloc ( ) ; 

kms  ptr->dki  create- >req_type  =  Insert; 

strcpy(kms  ptr->dki  create->en  name,  entptr->en  name); 

av  ptr  =  build  key  av  pair(entptr); 

av  ptr->next  =  build  funct  av_pair(entptr->en_ftnptr); 
kms  ptr->dki  create->av  pair  ptr  =  av  ptr; 
kms  ptr->dki  create->next  =  NULL; 

} 

} 

#ifdef  EnExFlag 

printf(”Exit  proc_create_ent_type\nn); 

#endif 

return(in); 

}  /*  end  proc_create_ent_type  */ 

proc_create_sub_type(genptr) 
struct  gen  sub  node  *genptr; 


{ 

int  in; 

struct  fun  dbid  node 
struct  overlap  node 
struct  gen  sub  node 
struct  sub  node  list 
struct  create  ent  list 

struct  sub  node  list 


*db_ptr; 

*ovrptr; 

*subptr; 

*snlptr; 

*cel_ptr, 

^create  ent  list_alloc(); 
*sub_node_list_alloc(); 
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struct  ident  list 


*temp  ptr; 


#ifdef  EnExFlag 

printf(MEnter  proc_create_sub_type\n"); 

#endif 

free_dki  create(); 
kms_ptr->dki_cel_ptr  =  NULL; 

*  ensure  multiple  name  ids  are  overlap  sub  node  type  */ 

/*  skip  if  there  is  only  one  name  id  in  the  list  */ 
temp  ptr  =  kms_ptr->dki  temp  ptr; 
if  (temp_ptr->next  !=  NULL) 

{ 

dbptr  =  cuser  dap  ptr->ui  li  type.li  dap. dpi  curr  db.cdi  db.dn  fun: 
ovrptr  =  db_ptr->fdn_ovrptr; 
in  =  FALSE; 

while  (ovrptr  !=  NULL  &&  ( !in) ) 

{ 

snlptr  =  ovrptr->snlptr: 
while  (snlptr  !=  NULL  &&  (!in)) 

{ 

if  (strcmp(snlptr->subptr->gsn_name,  temp_ptr->name)  —  —  0) 

{ 

in  =  TRUE: 

kms_ptr->dki_create_ovrptr  =  ovrptr; 

} 

else 

snlptr  =  snlptr->next: 

} 

ovrptr  =  ovrptr- >  next; 

} 

if  (!in)  /*  overlap  constraint  not  declared  */ 

proc  eval  error(25,temp  ptr->name); 
else 

{ 

/*  check  the  all  remaining  name  ids  */ 
temp_ptr  ~  temp  ptr  ->  next; 
while  (temp  ptr  !=  NULL) 

{ 

snlptr  =  kms_ptr->dki  create  ovrptr->snlptr; 
in  =  FALSE; 

while  (snlptr  !=  NULL  &&  ( !in) ) 

{ 

if  (strcmp(temp_ptr->name,  snlptr->subptr->gsn_name)  ==  0) 
in  =  TRUE; 
else 

snlptr  =  snlptr->next; 

} 

if  (!in)  /*  overlap  constraint  not  declared  */ 

proc  eval  error(25,temp  ptr->name); 
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tempptr  =  temp_ptr->next: 

} 

} 

} 

temp  ptr  =  kms  ptr->dki  temp  ptr; 
while  (temp_ptr  !=  NULL) 

{ 

subptr  =  genptr;  /*  rewind  subptr  */ 
in  =  FALSE; 

while  ((subptr  !=  NL'LL)  &&  ( ! in ) ) 

{ 

if  (strcmp(subptr->gsn_name,  temp  ptr->name)  ==  FALSE) 

in  =  TRUE: 

else 

subptr  =  subptr->gsn  next  genptr; 

} 

if  (!in) 

/*  undeclared  entity  type  or  subtype  * 
proc  eval  error(l5.temp  ptr->name); 

else  if  (subptr->gsn  terminal  ==  FALSE) 

/*  must  be  terminal  type  for  create  * 
proc  eval  error(21.temp  ptr~>name); 

else 

{ 

celptr  =  create_ent_list_alloc(); 
cel_ptr->enl_ptr  =  NULL; 
cel  ptr->snl  ptr  =  sub  node  list  allocQ; 
cel  ptr->snl  ptr->subptr  =  subptr; 
cel_ptr->snl  ptr->next  =  NULL; 
cel_ptr->next  —  kms_ptr->dki_cel_ptr; 
kms_ptr->dki_cel_ptr  —  cel_ptr; 

} 


temp_ptr  =  temp_ptr->next; 

}  /*  end  while  temp  ptr  */ 

build_create_list(); 

fifdef  EnExFlag 

printf(,!Exit  proc  create  sub  type\nM); 
#endif 

}  /*  end  proc_create_sub_type  * / 

build_create_list() 

{ 

struct  sub  node  list  *snl  ptr; 
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struct  ent_node_list 
struct  ent  node 
struct  gen  sub  node 
struct  create  ent  list 


*enl  ptr; 

*overlap_entptr; 

*overlap_subptr; 

*cel_ptr, 

*new_cel  ptr, 

*temp  cel  ptr, 
*create_ent_list  alloc (); 


#ifdef  EnExFlag 

printf(’!Enter  build_create  list\nM); 
#endif 


new_cel_ptr  —  NULL: 
overlap_entptr  =  NULL; 
overlap_subptr  =  NULL; 
cel_ptr  =  kms  ptr->dki_cel  ptr; 
while  (cel_ptr  !=  NULL) 

{ 

snl_ptr  =  cel_ptr->snl_ptr: 
enl_ptr  =  cel_ptr->enl_ptr; 
while  (snl_ptr  !=  NULL) 

{ 

/*  skip  if  it  is  the  overlapping  base  type  */ 

/*  it  will  be  added  last  to  avoid  duplicates  */ 
if  (strcmp(snl_ptr->subptr->gsn_name, 

kms  ptr->dki  create  ovrptr->base  type  name)  ==  0) 
overlap_subptr  =  snl_ptr->subptr; 

else 

{ 

build  _sub_create_list  (snl_ptr*  >  subptr) ; 
if  ((snl_ptr->subptr->gsn_entptr  !=  NULL)  || 
(snl_ptr->subptr->gsn_subptr  !=  NULL)) 

{ 

temp_cel_ptr  =  create_ent_list_alloc(); 

temp  cel  ptr->enl_ptr  =  snl_ptr->subptr->gsn  entptr; 

temp_cel_ptr->snl_ptr  =  snl_ptr->subptr->gsn_subptr; 

temp  cel  ptr->next  =  new_cel  ptr; 

new  cel  ptr  =  temp  cel  ptr; 

} 

} 

snl_ptr  =  snl_ptr->next; 

}  /*  end  while  snl_ptr  */ 

while  (enl  ptr  !=  NULL) 

{ 

/*  skip  if  it  is  the  overlapping  base  type  */ 

/*  it  will  be  added  last  to  avoid  duplicates  */ 
if  (strcmp(enl  ptr->entptr->en_name, 

kms  ptr->dki_create_ovrptr->base_type  name)  ==  0) 
overlap  entptr  =  enl  ptr->entptr; 
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else 


build  ent_create_list(enl _ptr->entptr); 
enl_ptr  =  enl_ptr->next; 

}  /*  end  while  enl_ptr  */ 

cel  ptr  =  cel  ptr->next; 

}  /*  end  while  cel_ptr  */ 

free_dki_cel_ptr(); 

/*  recursively  call  build  create  list ()  when  there  is  more  supertypes  */ 
if  (new  cel  ptr  !=  NULL) 

{ 

kms  ptr->dki  cel  ptr  =  new  cel  ptr: 
build  create  list ( ) ; 

} 

else 

{ 

/*  Now,  build  the  overlap  base  entity  */ 
if  (overlap  entptr  !=  NULL) 

build_ent_create_list (overlap  entptr); 
else  if  (overlapsubptr  !=  NULL) 

build  sub  create  list(overlap  subptr); 

} 


#ifdef  EnExFlag 

printf("Exit  build  create  list\nn); 
^tendif 

}  /*  end  build  create  list  */ 

build_ent_create_list  (entptr) 
struct  ent  node  *entptr; 


{ 

struct  dap_create_list  *dap_create_list_alloc(), 

*dcl_ptr; 

struct  dap  av  pair  list  *build  funct  av  pair(), 

*build_key_av_pair(), 

*av_ptr; 


#ifdef  EnExFlag 

printf(!!Enter  build  ent  create  list\n,f); 

#endif 

dcl_ptr  =  dap_create_list_alloc(); 
del  ptr->req  type  =  Insert; 
strcpy(dcl_ptr->en  name,  entptr->en  name); 
av^ptr  =  build_key_av_pair(entptr); 

av  ptr->next  =  build  funct  av  pair(entptr->en  ftnptr); 
dcl_ptr->av  pair  ptr  =  av  ptr; 
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dcl_ptr->next  =  kms_ptr->dki  create: 
kms_ptr->dki_create  =  del  ptr: 

#ifdef  EnExFlag 

printf(MExit  build  ent  create  list\ n 11 ) ; 

3*endif 

} 

build  sub  create  list(subptr) 

struct  gen_sub  node  *subptr; 

{ 

struct  dap  create  list  Map  create  list  alloc(), 

*dcl_ptr; 

struct  dap_av_pair  list  *build  funct  av  pair(). 

*build  sub  key  av  pair(), 
*last  av  ptr. 

*av  ptr: 

#ifdef  EnExFlag 

printf(MEnter  build_sub_create_list  nM); 

#endif 


dcl_ptr  =  dap_create_list_alloc(); 
dcl_ptr->req  type  =  Insert: 

strepv  (dcl_ptr->en_name,  subptr->gsn_name); 
av  ptr  =  build  sub  key  av  pair(subptr); 
last  av  ptr  =  av  ptr; 
while  (last_av_ptr->next  !=  NULL) 
last_av_ptr  =  last_av_ptr->next; 
last  av  ptr->next  = 

build_funct_av_pair(subptr->gsn_ftnptr); 
del  ptr->av  pair  ptr  =  av  ptr; 
dcl_ptr->next  =  kms_ptr->dki_create; 
kms_ptr->dki_create  =  dcl_ptr; 

#ifdef  EnExFlag 

printf(nExit  build_sub_create_list\nn); 

#endif 

} 

struct  dap  av_pair_list  *build_key_av_pair(entptr) 
struct  ent_node  *entptr; 


{ 

struct  dap  av  pair  list  Map  av  pair_list_alloc(), 

*av_ptr; 

struct  ent  value  *ent_value_alloc(): 

char  *var  str  alloc(): 
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av  ptr  =  dap  av  pair  list  alloc (): 
strcpy(av _ptr->name,  entptr->en  name); 
av_ptr->ftnptr  =  NULL; 
av  _ptr->num_value  =  1: 
av  ptr->valptr  =  ent  value  alloc(); 

av  ptr->valptr->ev  value  =  var  str  alloc(INTLength); 
num_to_str(entptr->en_last_ent_id  1.  av_ptr->valptr->ev  value) 
av_ptr->valptr->next  =  NULL; 
av  ptr- > next  =  NULL; 

returnfav  ptr); 

} 

struct  dap  av  pair  list  *build  sub  key  av  pair(subptr) 
struct  gen  sub  node  *subptr; 

{ 

struct  dap  av  pair  list  *dap  av  pair  list  alloc(), 

*new_av_ptr, 

*last  av  ptr, 

*av  ptr: 

struct  ent_value  *ent  value  alloc(); 

struct  ent  node  list  *enl  ptr: 

struct  sub  node  list  *snl  ptr; 

fifdef  EnExFlag 

printf(nEnter  build  sub  key  av  pair\nM); 

#endif 

av  ptr  =  NULL: 

enl  ptr  =  subptr->gsn  entptr; 

snl_ptr  =  subptr->gsn  subptr: 

while  (enlptr  !=  NULL) 

{ 

new_av_ptr  =  build_key_av_pair(enl_ptr->entptr); 
last  av  ptr  =  new  av  ptr; 
while  (last  av  ptr->next  !=  NULL) 
last_av_ptr  =  last_av_ptr->next; 
last  av  ptr- > next  =  av  ptr; 
av_ptr  =  new  av  ptr; 
enl_ptr  =  enl  ptr->next; 

} 

while  (snl_ptr  !=  NULL) 

{ 

new_av_ptr  =  build_sub_key_av_pair(snl_ptr->subptr); 
last  av  ptr  =  new  av  ptr; 
while  (last  av  ptr->next  !=  NULL) 
last_av_ptr  =  last  av  ptr->next; 
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last  av  ptr- >  next  =  av  ptr; 
av  ptr  =  new  av  ptr; 
snl_ptr  =  sr  ptr- >  next; 

} 

#ifdef  EnExFlag 

printf(nExit  build _sub_key  av  pair\n,f); 

#endif 

return(av_ptr); 

} 

struct  dap_av_pair  list  *build  funct  av  pair(ftnptr) 
struct  function  node  *ftnptr; 


{ 

struct  dap  av  pair  list  Map  av  pair  list  alloc(). 

*av_ptr. 

*last  av  ptr; 

last  av  ptr  =  NULL; 
while  (ftnptr  !=  NULL) 

{ 

av^ptr  =  dap  av  pair  list  alloc(); 
strcpy(av  ptr->name.  ftnptr->fn  name); 
av_ptr->ftnptr  =  ftnptr; 
av  ptr->num  value  =  0; 
av_ptr->valptr  =  NULL; 
av_ptr->next  =  last  av  ptr; 
last_av_ptr  —  av_ptr; 
ftnptr  =  ftnptr- >next; 

}  /*end  while  ftnptr  */ 

return  (av_ptr); 

}  /*  end  build _funct_av_pair  */ 

build  req  line  list () 

{ 

struct  dap_create_list  *dcl  ptr; 
struct  reqlinelist  *req_ptr, 

*r_ptr, 

*last_req_ptr, 

^append  attr  value(), 
*req_line_list_alloc(); 
struct  dap_av_pair_list  *av_ptr; 
int  en_len;  /*  length  of  en_name  */ 

int  i;  /*  index  */ 

free_dki_req_ptr(); 

del  ptr  —  kms_ptr->dki_create; 
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while  (del _p t r  !=  NULL) 

{ 

if  (kms_ptr->dki_req_ptr  ==  NULL) 

{  ' 
req_ptr  =  req_line_list_alloc(); 
kms  ptr->dki  req  ptr  =  req  ptr; 

} 

else 

{ 

last  req  ptr->next  =  req  line  list  alloc(): 
req  ptr  =  last  req  ptr->next; 

} 

last_req_ptr  =  req_ptr; 
if  (dcl_ptr->req_type  ==  Insert) 

strcpy(req_ptr->req_line,  MINSERT(<FILE,"); 
else 

strcpy(req_ptr->req_line,  "RETRIEVE(<FILE,"): 
en  len  =  strlen(dcl_ptr->en  name); 
for  (i  =  1:  i  <  en  len;  i-r  — ) 

del  ptr->en_name  i;  =  tolower(dcl_ptr->en_nameii’ ); 
strcat(req  ptr->req  line. del  ptr->en  name); 
av  ptr  =  del  ptr->av  pair  ptr; 
while  (av  ptr  !=  NULL) 

{ 

r  ptr  =  req  ptr; 
while  (r_ptr  !=  NULL) 

{ 

strcat(r_ptr->req_line,M  >,<”); 
strcat(r  ptr- >req_line,av_ptr-> name); 

strcat(r_ptr->req_line,,Vl)5 

r  ptr  =  r  ptr->next; 

}  " 

if  (av  ptr->num  value  >  0) 

last  req  ptr  =  append  attr  value(req  ptr.av  ptr->valptr); 

else  if  (av  ptr->ftnptr->fn  num  value  >  0) 

/*  use  default  value  */ 
last_req_ptr  = 

append  attr  value(req  ptr,av  ptr->ftnptr->fn  value); 

else 

{ 

r_ptr  =  req_ptr; 
while  (r_ptr  !=  NULL) 

{ 

/*  provide  system  default  value  */ 
switch  (get  base_fun  type(av_ptr->ftnptr)) 

{ 

case  V:  strcat(r_ptr->req_line,MOn); 
break; 

case  T:  strcat(r_ptr->req_line,M0.0M); 
break; 
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case  's’:  strcat(r_ptr->req_line, "*****"); 
break; 

case  V:  proc_eval_error(23,av  ptr->name): 
break; 

case  ’E’:  if  (av_ptr->ftnptr->fn_entnull) 

strcat(r_ptr->req^line,,,0M); 

else 

proc_eval_error(24,av_ptr->name) 

break; 

} 

r_ptr  =  r  ptr- >  next; 

} 

} 

av_ptr  =  av_ptr->next; 

} 

r_ptr  =  req  ptr; 
while  (r  ptr  !=  NULL) 

{ 

strc  at  (r_ptr-  >req_line. 11  > ) " ) ; 
r  ptr  =  r  ptr->next; 

}  " 

dcl_ptr  =  dcl_ptr->next; 

} 

} 


freejdki  createQ 
{  ' 

struct  dap_create_list  *dcl  ptr, 

*next_dcl_ptr; 

dcl_ptr  =  kms_ptr->dki_create; 
while  (dcl_ptr  T=  NULL)" 

{ 

next  del  ptr  =  del  ptr->next; 

free(dcl  ptr); 

dcl_ptr  =  next  del  ptr; 

} 

kms_ptr->dki  create  =  NULL; 


free_dki_req_ptr() 

{ 

struct  req_line_list  *req_ptr, 

*next_req_ptr; 

req_ptr  =  kms_ptr->dki_req_ptr; 
while  (req_ptr  !=  NULL) 

/ 
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next  req  ptr  =  req_ptr->next; 

free(reqptr); 

req  ptr  =  next  req  ptr; 

} 

kms_ptr->dki_req_ptr  =  NULL; 

} 


free_dki_cel  ptr() 

{ 

struct  create  ent  list  *cel  ptr, 

*next_cel_ptr; 

cel_ptr  =  kms_ptr->dki_cel_ptr; 
while  (cel_ptr  !=  NULL) 

{ 

next  cel  ptr  —  cel  ptr->next; 

free(cel  ptr): 

cel  ptr  -  next  cel  ptr; 

> 

kms  ptr->dki  cel  ptr  =  NULL: 

} 

struct  req  _line_list  ^append  attr  value(the  req  ptr,  the  val  ptr) 

struct  req_line_hst  *the_req_ptr; 

struct  ent  value  *the  val  ptr; 

{ 

struct  req  line  list  *req_ptr, 

*  next  _req  ptr, 

*last  req  ptr, 

*req_line  list_alloc(); 
struct  ent  value  *val  ptr; 

#ifdef  EnExFlag 

printf(MEnter  append  attr  value\nn); 

#endif 

/*  duplicates  current  req_line  for  multiple  values  */ 
reqptr  =  the_req_ptr; 
while  (req_ptr  !=  NULL) 

{ 

next  req  ptr  =  req  ptr->next; 
val  ptr  =  the  val  ptr; 
while  (val_ptr->next  !=  NULL) 

{ 

req_ptr->next  =  req  line  list  alloc (); 
strcpy(req_ptr->next->req_line,  req_ptr->req_line); 
req_ptr  =  req  ptr- > next; 
val  ptr  =  val_ptr->next; 
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}  /*  end  while  */ 
req_ptr->next  =  next  req  ptr; 
req_ptr  =  next_req_ptr; 

} 

req_ptr  —  the_req_ptr; 
while  (req_ptr  !=  NULL) 

{ 

val_ptr  =  the  val  ptr; 
while  (val_ptr  !=  NULL) 

{ 

strcat(req_ptr->req  line,  val  ptr->ev  value); 
last_req_ptr  =  req  ptr; 
req_ptr  =  req_ptr->next; 
val_ptr  —  val_ptr->next; 

}  r  end  while  */' 

} 


£ifdef  EnExFlag 

printf(MExit  append  attr  value\nM); 
iendif 


ret  urn  ( last  _req  ptr); 

}  /*  end  append  attr  value  * 


get_base_fun_type(fptr) 

struct  function  node  *fptr; 

{ 

char  fun  type; 
iifdef  EnExFlag 

printf(nEnter  get_base_fun  type\nn); 

#endif 

switch  (fptr->fn_type) 

{ 

case  T  : 
case  T  : 

case  ’s’  :  fun  type  =  fptr->fn  type; 
break; 

case  Jb’  :  fun  type  =  V; 
break; 

case  V  :  if  (fptr  ->  fn  entptr  !=  NULL  ( 
fptr  ->  fn_subptr  !=  NULL) 
fun_type  =  ’E’; 

else  if  (fptr  ->  fn  nonentptr  !=  NULL) 

fun_type  =  fptr->fn_nonentptr->  enn_type; 
else  if  (fptr  ->  fn  nonsubptr  !=  NULL) 

fun  type  =  fptr  ->  fn_nonsubptr  ->  snn  type; 
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else  if  (fptr  ->  fn_nonderptr  !=  NULL) 

fun_type  =  fptr  ->  fn_nonderptr  ->  dnn  type; 
break; 

}  /*  end  switch  */ 

#ifdef  EnExFlag 

printf(MExit  get_base_fun_type\nM); 

#endif 

return(fun_type); 

}  /*  end  get_base_fun_type  * / 


put  dkientvalue  list  (type,  str_in) 

int  type: 
char  *str  in: 


{ 

struct  ent_value  *ev_ptr: 
int  i; 

if  (kms _ptr->dki  evl  ptr.num  values  ==  0) 
kms  ptr->dki_evl  ptr.type  =  type; 

evptr  =  ent_value_alloc(); 

ev  ptr->ev  value  =  var  str  alloc(strlen(str  in)  +  1); 
if  (type  ==  String) 

for  (i  =  1;  i  <  strlen(str  in);  i -h+) 
if  (isupper(str  in [i] ) ) 

str_in[i]  =  tolower(str_in[i]); 
strcpy(ev  ptr->ev  value,  str  in); 
ev  ptr->next  =  kms  ptr->dki  evl  ptr.ev  ptr; 
kms_ptr->dki_evl_ptr.ev_ptr  =  ev_ptr; 
kms_ptr->dki_evl_ptr.num_values-^-f; 


} 

clean_dki_evl  jptr() 

{ 

struct  ent  value  *ev  ptr, 

*next_ev_ptr; 

kms  ptr->dki  evl  ptr.type  =  ’  *; 
kms_ptr->dki_evl_ptr.num_values  =  0; 
ev_ptr  =  kms_ptr->dki  evl  ptr.ev  ptr; 
while  (ev_ptr  !=  NULL) 

{ 
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next_ev_ptr  =  ev  ptr->next: 

free(ev_ptr): 

ev_ptr  =  next  _ev  ptr: 

} 

kms_ptr«>dki_evl_ptr.ev_ptr  =  NULL: 

} 

struct  ent_node  ^search  entityjen  name) 
char  *en  name: 


{ 

int  found  =  FALSE: 
struct  ent  node  *entptr: 

entptr  — 

cuser_dap_ptr->ui_li_type.li_dap.dpi_curr_db.cai_db.dn_fun->fdn_entptr: 
while  ((entptr  !=  NULL)  (!found)) 

{ 

if  (strcmp(entptr->en  name,  en  name)  ==  FALSE) 
found  =  TRUE: 
else 

entptr  =  entptr->en  next  ent: 

} 

return(entptr): 

} 


struct  gen  sub  node  ^search  gensub(gsn  name) 
char  *gsn  name; 

{ 

int  found  =  FALSE: 

struct  gen_sub_node  *subptr; 

subptr  = 

cuser_dap_ptr->ui_li_type.li_dap.dpi_curr_db.cdi_db.dn_fun->fdn_subptr: 
while  ((subptr  ’  =  NL’LL)  <k<L  (’.found)) 

{ 

if  (strcmp(subptr->gsn  name,  gsn_name)  ==  FALSE) 
found  =  TRLTE; 
else 

subptr  =  subptr->gsn  next  genptr; 

} 

return(subptr); 

} 
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struct  function_node  *search_funct (indexed _comp_ptr,  entptr,  subptr) 
struct  indexed  component  *indexed_comp_ptr; 
struct  ent_node  *entptr; 

struct  gen_sub_node  *subptr; 


{ 

int  found; 

struct  function_node 
struct  ent_node_list 
struct  sub_node_list 
struct  ent  node 
struct  gen  sub  node 


*funct  ptr; 

*enlptr; 

*snlptr: 

*dummy_entptr  =  NULL: 
*dummy_subptr  =  NULL; 


if  (entptr  !=  NULL) 

{ 

funct  ptr  =  entptr->en_ftnptr; 
found  =  FALSE; 

while  ((funct_ptr  !=  NULL)  (’.found)) 

{ 

if  (strcmp(funct_ptr->fn_name,  indexed  comp  ptr->name_id)  ==  FALSE) 

{ 

strcpy(indexed  comp  ptr->parent  name.  entptr->en  name): 
found  =  TRUE; 

} 

else 

funct_ptr  =  funct_ptr->next; 

} 


funct  ptr  =  subptr->gsn  ftnptr; 
found  =  FALSE; 

while  ((funct  ptr  !=  NULL)  &;&  (!found)) 

{ 

if  (strcmp(funct_ptr->fn  name,  indexed_comp  ptr->name_id)  =  =  FALSE) 
{ 

strcpy(indexed_comp_ptr->parent_name,  subptr->gsn_name); 
found  =  TRUE; 

} 

else 

funct  ptr  =  funct  ptr->next; 

} 


enlptr  =  subptr->gsn  entptr; 
while  ((Ifound)  &&  (enlptr  !=  NULL)) 

{ 

funct_ptr  =  search_funct(indexed_comp_ptr,  enlptr->entptr, 

dummy_subptr); 

if  (funct_ptr  !=  NULL) 
found  =  TRUE; 
else 
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enlptr  =  enlptr->next; 


} 

snlptr  =  subptr->gsn  subptr; 
while  ((!found)  &&  (snlptr  !=  NULL)) 

{ 

funct  ptr  =  search  funct(indexed  comp  ptr.  dummy  entptr, 

snlptr->subptr); 

if  (funct  ptr  !=  NULL) 
found  =  TRUE; 
else 

snlptr  =  snlptr->next; 

} 


returnffunct  ptr); 

} 
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APPENDIX  D 


THE  DAPLEX  GRAMMAR  RULES 


<statement>  ::  = 

<ddl-statement> 

|  <dml-statement> 

<ddl-statement>  = 

DATABASE  <name-id>  IS  <declarative-item-list>  <end-database>  SEMICOLON 
<end-database>  ::  = 

END 

|  END  <name-id> 

<declarative-item-list> 

<  declarative- item  > 

< declarative-item-list >  <declarative-item> 

<declarative-item>  = 

<  declaration  s 

|  <overlap-rule> 

<uniqueness-rule> 

<overlap-rule>  OVERLEAP  <namel-list>  WITH  <namel-list>  SEMICOLON 

<uniqueness-rule>  UNIQUE  <id-list>  WITHIN  <name-id>  SEMICOLON 

<declaration> 

<number-declaration> 

|  TYPE  <new-id>  <type-declaration> 
j  SUBTYPE  <new-id>  <subtype-declaration> 

<number-declaration>  ::= 

<new-id-list>  COLON  CONSTANT  ASSIGN  <simple-const>  SEMICOLON 

<simple-const>  = 

INTEGER-LITERAL 

FLOAT-LITERAL 

CHARACTER-STRING 

<type-declaration> 

IS  <type-definition>  SEMICOLON 
|  IS  <entity-type-definition>  SEMICOLON 
|  <incomplete-type-declaration> 

<incomplete-type-declaration>  SEMICOLON 

<type-definition> 

<enumeration-type-definition> 

|  <integer-range> 
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<float-range> 

<derived-type-definition> 

<enumeration-type-definition>  ::=  LP  <enumeration-literal-list>  RP 

<enumeration-literal-list>  ::  = 

<enumeration-literal> 

<enumeration-literal-list>  COMMA  <enumeration-literal> 


<enumeration-literal>  ::=  IDENTIFIER 
<integer-range>  RANGE  <int-range> 

<int-range>  ::=  INTEGER-LITERAL  ELIPSES  INTEGER-LITERAL 

<fioat-range>  ::=  RANGE  FLOAT-LITERAL  ELIPSES  FLOAT-LITERAL 

<derived-type-definition>  NEW  <name-id>  <derived-range> 

<derived-range>  - 

<  integer-range  > 

<float-range> 

<entity-type-definition>  ::  = 

ENTITY  <entity-component-declaration-list>  END  ENTITY 
j  ENTITY  END  ENTITY 

< entity-component-declaration-list >  ::= 

<entitv-component-declaration> 

<entity-component-declaration-list>  < entity-component-declaration > 

<entity-component-declaration>  <namel-list>  COLON  <function-type-declaration> 

<function-type-declaration> 

<function-type>  < end-scalar-function > 

<set-type-definition>  SEMICOLON 

<set-type-definition>  ::=  SET  OF  <function-type> 

<end-scalar-function>  ::  = 

SEMICOLON 

ASSIGN  <default-value>  SEMICOLON 

<default-value>  ::  = 

INTEGER-LITERAL 
|  FLOAT-LITERAL 
|  CHARACTER-STRING 
<boolean-value> 

<boolean-value>  ::= 


197 


TRUE 

FALSE 


<function-type>  ::  = 

<type-mark>  <constraint> 

STRING  LP  <string-range>  RP 

<string-range>  ::  = 

<int-range> 

INTEGER-LITERAL 

<type-mark>  ::= 

<name-id> 

FLOAT 

INTEGER 

BOOLEAN 

<constraint>  = 

/*  empty  */ 

<range-constraint> 

<null-constraint> 

<range-constraint>  = 

<integer-range> 

<float~range> 

<enumeration-range> 

<enumeration-range>  ::=  RANGE  IDENTIFIER  ELIPSES  IDENTIFIER 

<null-constraint>  ::  = 

WITHNULL 

WITHOUTNULL 

<subtype-declaration>  ::  = 

IS  <complete-subtype>  SEMICOLON 
|  <  incomplete-subtype-declaration  > 

<complete-subtype>  ::  = 

<name-id  subtype-definition> 

|  < id-list >  <entity-type-definition> 

|  STRING  LP  <string-range>  RP 

<subtype-definition>  ::  = 

RANGE  <enumeration-literal>  ELIPSES  <enumeration-literal> 
<integer-range> 

<float-range> 
j  /*  empty  */ 

<incomplete-subtype-declaration>  SEMICOLON 

<name-id>  IDENTIFIER 
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<new-id>  <name-id> 

<new-id-list>  ::= 

<new-id> 

<new-id-list>  COMMA  <new-id> 

< id-list >  ::  = 

<  name-  id  > 

< id-list >  COMMA  <name-id> 

<namel>  <name-id> 

<namel-list;>  ::  = 

<namel> 

<namel-list>  COMMA  <namel> 

<dml-statement  >  ::  = 

<create-statement> 

<destrov-statement> 

<move-statement> 

<  loop-statement  > 

<dml-statement2>  ::= 

<  assignment-statement  > 

<include-statement> 

<exclude-statement> 

<destroy-statement> 

<  move-statement  > 

<procedure-call> 

<create-statement>  CREATE  NEW  <create-part>  SEMICOLON 

<create-part>  <namel-list>  <named-aggregate> 

<named-aggregate>  = 

LP  <component-association-list>  RP 
/*  empty  *, 

<component-association-list>  = 

<  component-association  > 

<component-association-list>  COMMA  <component-association> 

<component-association>  ::=  IDENTIFIER  IMPLY  <dap-expr> 

<dap-expr>  ::  = 

<relation> 

<rel-and-list> 

<rel-or-list> 

<rel-and-list>  ::= 

<relation>  AND  <relation> 
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j  <rel-and-list>  AND  <relation> 

<rel-or-list>  ::  = 

<relation>  OR  <relation> 

<rel-or-list>  OR  <relation> 

<relation> 

<simple-expr> 

<simple-expr>  <relational-operator>  <simple-expr> 
j  <simple-expr>  <in-op>  <dap-range> 

|  <simple-expr>  <in-op>  <namel> 

<simple-expr>  ::  = 

<literal> 

<set-constructor> 

|  <indexed-component> 

<function-application> 

<function-application>  ::=  <function-name>  LP  <expr-types>  RP 

<expr-types>  = 

<namel^ 

<set-constructor> 
cindexed-component  > 

<indexed-component> 

<dml-id-name>  LP  <dml-id-name>  RP 
<dml-id-name>  LP  cindexed-component  >  RP 

<set-constructor>  ::=  LCB  <end-set-construct> 

<end-set-constructor>  ::= 

<basic-expr-list>  RCB 

<simple-expr>  IN  <set-constructor-part>  WHERE  <dap-expr>  RCB 
|  RCB 

<set-constructor-part>  = 

<namel> 

<dap-range> 

<basic-expr>  ::  = 

<literal> 

|  <indexed-component> 

|  <function-application> 

<basic-expr-list>  ::  = 

<basic-expr> 

<basic-expr-list>  COMMA  <basic-expr> 

<domain>  ::= 

<loop-expr> 
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<loop-expr>  WHERE  <dap-expr> 

<loop-expr> 

<indexed-component> 

|  IDENTIFIER 

<exclude-statement>  ::=  EXCLUDE  <dap-expr>  FROM  <indexed-component>  SEMICOLON 

<destroy-statement>  DESTROY  <dap-expr>  SEMICOLON 

<assignment-statement>  <indexed-component>  ASSIGN  <dap-expr> 

<include-statement>  INCLUDE  <dap-expr>  INTO  <indexed-component>  SEMICOLON 

<move-statement>  =  MOVE  <dap-expr>  <move-statement2>  SEMICOLON 

<move-statement2>  ::  = 

<move-from> 

<move-to> 

<move-from>  <move-to> 

<move-from>  ::=  FROM  <namel-list> 

<move-to>  INTO  <create-part> 

<procedure-call>  <procedure-name>  LP  <basic-expr-list>  RP  SEMICOLON 

<procedure-name>  = 

PRINT 

|  PRINT-LINE 

<loop-statement>  ::  = 

<real-loop>  SEMICOLON 

|  IDENTIFIER  COLON  <real-loop>  IDENTIFIER  SEMICOLON 

|  IDENTIFIER  COLON  <real-loop>  SEMICOLON 

<real-loop>  <iteration-clause>  <basic-loop>  <end-loop> 

<iteration-clause>  = 

<iteration-body> 

<iteration-body>  BY  <order-component-list> 

<iteration-body>  <for-clause>  IDENTIFIER  IN  <domain> 

<for-clause>  = 

FOR 

|  FOR  EACH 

<order-component-list> 

<  order-component  > 

<order-component-list>  COMMA  <order-component> 
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<order-component>  = 

<indexed-component> 

<sort-order>  <indexed-component> 

<sort-order>  ::  = 

ASCENDING 
i  DESCENDING 

<basic-loop> 

<sequence-of-statements> 

LOOP  <sequence-of-statements> 

<sequence-of-statements>  ::  = 

<dml-statement2> 

<sequence-of-statements>  <dml-statement2> 

<end-loop>  = 

END 

END  LOOP 

<dml-id-name  >  ::=  IDENTIFIER 
<relacional-operator>  ::  = 

EQ 
NE 
LT 
LE 
|  GT 
|  GE 

<in-op>  ::= 

IN 

|  NOT  IN 

<dap-range>  ::  = 

<integer-range> 

<float-range> 

<  literal  >  ::  = 

CHARACTER-STRING 
|  NULL 
|  TRUE 
|  FALSE 

<function-name> 

COUNT 
|  SUM 
AVG 
|  MIN 
MAX 
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